在同一个闪亮的应用程序中使用shinyjs和ggplot2 :: autoplot

Question

我在我闪亮的应用程序中使用ggplot2::autoplot函数和lm对象。 这可以归功于ggfortify软件包。

在我闪亮的应用程序上，我也使用shinyjs。 在下面的可再现示例中，只要我取消注释library(shinyjs)和useShinyjs()，我就会收到错误： Error in unclass(x) : cannot unclass an environment。

有关可能的解决方法的任何想法？

library(shiny)
library(ggplot2)
library(ggfortify)
#library(shinyjs)

ui <- fluidPage(
    #useShinyjs(),
    div(
        actionButton("run", "Run")
        ,uiOutput("ui_autoplot")
    )   
)

server <- function(input, output, session) {

    data <- iris

    rv_autoplot <- eventReactive(input$run, {
        a <- lm(data = data, Sepal.Length ~ Petal.Length)
        p <- autoplot(a, which = 1:6, label.size = 2, data = data)
        return(p)
    })

    output$autoplot <- renderPlot({
        req(rv_autoplot())
        rv_autoplot()
    })


    output$ui_autoplot <- renderUI({
        plotOutput("autoplot")
    })
}

shinyApp(ui = ui, server = server)

我的sessionInfo()：

R version 3.4.1 (2017-06-30)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 16.04.3 LTS

Matrix products: default
BLAS: /usr/lib/openblas-base/libblas.so.3
LAPACK: /usr/lib/libopenblasp-r0.2.18.so

locale:
 [1] LC_CTYPE=fr_FR.UTF-8       LC_NUMERIC=C               LC_TIME=fr_FR.UTF-8        LC_COLLATE=fr_FR.UTF-8    
 [5] LC_MONETARY=fr_FR.UTF-8    LC_MESSAGES=fr_FR.UTF-8    LC_PAPER=fr_FR.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C             LC_MEASUREMENT=fr_FR.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] shinyjs_0.9.1   bindrcpp_0.2    ggfortify_0.4.1 ggplot2_2.2.1   shiny_1.0.5    

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.13     magrittr_1.5     bindr_0.1        munsell_0.4.3    colorspace_1.3-2 xtable_1.8-2     R6_2.2.2        
 [8] rlang_0.1.2      plyr_1.8.4       dplyr_0.7.4      tools_3.4.1      grid_3.4.1       gtable_0.2.0     miniUI_0.1.1    
[15] htmltools_0.3.6  yaml_2.1.14      lazyeval_0.2.0   digest_0.6.12    assertthat_0.2.0 tibble_1.3.4     gridExtra_2.3   
[22] tidyr_0.6.3      glue_1.1.1       mime_0.5         labeling_0.3     compiler_3.4.1   scales_0.5.0     jsonlite_1.5    
[29] httpuv_1.3.5     pkgconfig_2.0.1  Cairo_1.5-9 

Answer 1

它是加载shinyjs后出现的屏蔽函数之一

从'package：methods'中屏蔽了以下对象：

removeClass，show

即，功能show。

您可以通过执行SBista在其答案中所做的事情或通过添加此功能来重新映射全局环境中的函数来解决该问题

show <- methods::show

加载库后立即。

Answer 2

您可以使用命名空间而不是加载库来调用shinyjs参数，shinyjs::useShinyjs()似乎对我有用。