почему не отображается R Shiny Loading Spinner от блестящих загрузчиков

Question

Я пытаюсь добавить Spinner для загрузки в выходной файл моей таблицы. Но Spinner исчез, когда я использовал имя столбца таблицы, чтобы обновить варианты 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)