Question

我有一个无需添加shinycssloaders软件包即可正常运行的应用程序。但是由于某种原因，在我添加了程序包并添加了代码行（见下文）之后，如果我使用Shinyapps.io部署它，它将停止工作。该应用程序在本地运行良好，只是不允许我进行部署。

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

我在日志中收到的错误消息附在下面，但是我有软件包shickcssloaders，我尝试从CRAN和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)

我确定这项工作可以完成，因为它在他们的github页面上，但是我不确定我做错了什么。最坏的情况是，我将摆脱它，所以这不是一个大问题，但是如果我可以使用它，那将很酷。任何帮助表示赞赏！

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

  Title          PageNo

--------         ------

  Dashboard  - 1

  Contact Us - 2

  Conclusion - 100

Answer 1

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

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

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

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

1 个答案: