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

Question

tabPanel("Call Tab",

                 wellPanel(style = "background: white",
                      wellPanel(style = "background: #ff6666",
                              h4("Case1:EWS&0Count"),
                              h5("Check")
                      ),        

                    formattableOutput("case1.Table")  %>% withSpinner()

                  ),

Загрузка withSpinner из пакета sparkcssloaders продолжает загружаться даже после генерации вывода таблицы.

Answer 1

Вам нужно удалить точку в имени вашего выхода ("case1Table" вместо "case1.Table") Пожалуйста, смотрите следующее:

library(shiny)
library(formattable)


ui <- fluidPage(
    titlePanel("formattableOutput withSpinner"),

    sidebarLayout(sidebarPanel(),

                  mainPanel(tabsetPanel(
                      tabPanel(
                          "Call Tab",
                          wellPanel(
                              style = "background: white",
                              wellPanel(style = "background: #ff6666",
                                        h4("Case1:EWS&0Count"),
                                        h5("Check")),
                              withSpinner({formattableOutput("case1Table")})
                          )
                      )
                  )))
)

server <- function(input, output) {
    output$case1Table <- renderFormattable({
        formattable(data.frame(replicate(10, runif(10, 0, 10))))
    })
}

shinyApp(ui = ui, server = server)