当部署在 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))

它与部署完美配合。虽然看起来很奇怪，因为我确实附加了库（shinycssloaders）。在我的实际应用程序中，我将它附加到 server.R 文件中，也许这就是原因。