當在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文件中，這也許就是原因。