即使在活动完成后，shinycssloaders 也会继续加载

【问题标题】：shinycssloader keeps loading even after activity is finished即使在活动完成后，shinycssloaders 也会继续加载
【发布时间】：2019-09-21 15:22:39
【问题描述】：

tabPanel("Call Tab",

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

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

                  ),

shinycssloaders 包的 withSpinner 甚至在生成表格输出后仍继续加载。

【问题讨论】：

标签： r shiny shinydashboard shinyapps

【解决方案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)

【讨论】：