为什么 R Shiny 从 shinycssloaders 加载 Spinner 没有出现

Question

我正在尝试在我的表 output 上添加一个 Loading Spinner。但是当我使用表的列名称更新 checkboxGroupInput 的选择时，Spinner 消失了。 这是问题的示例。

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

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(),

以防万一其他人看到这个，这个例子也使用管道，即%>% ，但没有 package 添加它们。 您可以切换到withSpinner(tableOutput('table'))或 include library(magrittr)