У меня есть приложение, которое прекрасно работает без добавления пакета inycssloaders . Но по какой-то причине после того, как я добавил пакет и добавил строки (см. Ниже), он перестал работать, если я разверну его с помощью shinyapps.io. Приложение работает нормально локально, просто не позволил бы мне развернуть его.
# load the library
library(shinycssloaders)
withSpinner(plotOutput("my_plot"))
# if you have `%>%` loaded, you can do plotOutput("my_plot") %>% withSpinner()
Сообщение об ошибке, которое я получаю в журнале, прикреплено внизу, но у меня есть пакет глянцевых загрузчиков, и я попытался загрузить его из 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, но я не уверен, что я сделал не так. В худшем случае, я просто избавлюсь от этого, чтобы это не было большой проблемой, но было бы здорово, если бы я мог его использовать. Любая помощь приветствуется!
EDIT
Поэтому я приложил пример кода, не стесняйтесь попробовать развернуть его, у меня не получилось. Но локально работает нормально (так как это пример приложения, загрузка идет очень быстро, но вы все равно сможете его увидеть).
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)