为什么Shinycssloaders中的R Shiny Loading Spinner没有显示出来

Question

我正在尝试在表格输出中添加“加载微调器”。但是当我使用表的列名来更新checkboxGroupInput的选择时，微调框消失了。这是问题的一个例子。

有什么方法可以解决这个问题，或者有其他加载图标选项吗？

library(shiny)
library(shinycssloaders)
data(mtcars)

ui <- fluidPage(
  actionButton(inputId = 'a', label = 'show dataset'),
  checkboxGroupInput(inputId = 'b', label = 'Select Column'),
  tableOutput('table')%>% withSpinner(),
)

server <- function(input, output, session) {
  data = eventReactive(input$a, {
    # Pause for 3 seconds to simulate a long computation.
    Sys.sleep(3)
    mtcars
  })

  # loading spin disappear afer I add updateCheckboxGroupInput based on the output data column names 
  observeEvent(input$a, {updateCheckboxGroupInput(session, 'b', choices = colnames(data()))})

  # if updateCheckboxGroupInput does not depend on output data, loading spin will show up
  #observeEvent(input$a, {updateCheckboxGroupInput(session, 'b', choices = c('a','b','c'))})

  output$table = renderTable({data()})

}

shinyApp(ui = ui, server = server)

Answer 1

您在此行上还有一个逗号：tableOutput('table')%>% withSpinner(),以防万一其他人看到它，该示例也使用了管道，即%>%，但没有添加管道的软件包。您可以切换到withSpinner(tableOutput('table'))或包含library(magrittr)