блестящие загрузчики не работают при развертывании на shinyapps.io - PullRequest
Новая
       37

блестящие загрузчики не работают при развертывании на shinyapps.io

1 голос
/ 13 мая 2019

У меня есть приложение, которое прекрасно работает без добавления пакета 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)

1 Ответ

0 голосов
/ 20 мая 2019

Так как в журнале написано Warning: Error in withSpinner: could not find function "withSpinner" Я добавил имя пакета перед функцией withSpinner, так что теперь в функции пользовательского интерфейса это должно быть 

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

и прекрасно работает с deploy. Хотя это кажется странным, потому что я действительно приложил библиотеку (inycssloaders). В моем настоящем приложении я прикрепил его в файле server.R, возможно, поэтому.

...