在shinyapps.io上部署shinycssloaders不起作用

Question

我有一个无需添加shinycssloaders包就能正常工作的应用程序。但是由于某些原因，在我添加了包并添加了行之后(见下文)，如果我用shinyapps.io部署它，它就会停止工作。这个应用程序在本地运行良好，只是不让我部署它。

# load the library
library(shinycssloaders)

withSpinner(plotOutput("my_plot")) 
# if you have `%>%` loaded, you can do plotOutput("my_plot") %>% withSpinner()

我在日志中得到的错误消息附在下面，但我有shinycssloaders包，我尝试从CRAN和github下载，但都不起作用。

2019-05-13T16:41:39.317482+00:00 shinyapps[890504]: Using pandoc at /opt/connect/ext/pandoc2
2019-05-13T16:41:39.538904+00:00 shinyapps[890504]: Listening on http://127.0.0.1:46817
2019-05-13T16:41:43.893648+00:00 shinyapps[890504]: Warning: Error in withSpinner: could not find function "withSpinner"
2019-05-13T16:41:43.908035+00:00 shinyapps[890504]:   68: div
2019-05-13T16:41:43.908036+00:00 shinyapps[890504]:   67: mainPanel
2019-05-13T16:41:43.908034+00:00 shinyapps[890504]:   69: tags$div
2019-05-13T16:41:43.908032+00:00 shinyapps[890504]:   70: tag

我确信这是有效的，因为它在他们的github页面上，但我不确定我做错了什么。最坏的情况是，我会把它去掉，所以这不是一个大问题，但如果我可以使用它，那就太酷了。如有任何帮助，我们不胜感激！

编辑，所以我附加了一个示例代码，请随意尝试部署它，对我不起作用。但在本地运行得很好(因为它是一个示例应用程序，加载微调器非常快，但您仍然可以看到它)。

library(shiny)
library(shinycssloaders)

ui <- fluidPage(
  actionButton("go", "Go"),
  numericInput("n", "n", 50),
  withSpinner(plotOutput("my_plot"))
)

server <- function(input, output) {

  randomVals <- eventReactive(input$go, {
    runif(input$n)
  })

  output$my_plot <- renderPlot({
    hist(randomVals())
  })
}

shinyApp(ui, server)

Answer 1

由于日志显示为Warning: Error in withSpinner: could not find function "withSpinner"，因此我在withSpinner函数前面添加了包名，所以现在在UI函数中，它应该是

shinycssloaders::withSpinner(plotOutput("my_plot", height = 600))

而且它与deploy配合使用非常完美。虽然这看起来很奇怪，因为我确实附加了库(Shinycssloaders)。在我的实际应用中，我将其附加到server.R文件中，也许这就是原因。