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

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 文件中，也许这就是原因。

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

shinycssloaders doesn't work when deployed on shinyapps.io

r

shiny

shiny-server

shinyapps