добавление знака загрузки во время загрузки всего блестящего приложения

Question

Я разработал блестящее приложение, которое доступно и может быть доступно здесь . Проблема в том, что загрузка всего приложения занимает несколько секунд. Мне было интересно, есть ли способ добавить знак загрузки, чтобы пользователи понимали, что что-то происходит.

Вот несколько упрощенных первой и последней строк моего кода:

 #First lines

     ui <- fluidPage(

        navbarPage(
          collapsible = T,
          fluid = T,
          selected = "Population Projections",
          windowTitle = "Scripps Interactive Data Center",
          "",

          tabPanel(("Population Projections"),


      [the rest of the codes are here]


 server <- function(input, output) {


[the rest of the codes are here]


#last line
        shinyApp(ui = ui, server = server)

Спасибо

Answer 1

Используйте library(shinycssloaders) и tableOutput(id) %>% withSpinner().