tableOutput() doesn't receive progress indicator

[gadenbuie]

As reported in #4115, tableOutput() doesn't receive progress indicators because it applies the shiny-html-output (it's essentially a uiOutput() call).

library(shiny)

ui <- fluidPage(
  useBusyIndicators(),
  actionButton("run_tbl", "Run table"),
  tableOutput("tbl")
)

server <- function(input, output, session) {
  output$tbl <- renderTable({
    input$run_tbl
    Sys.sleep(3)
    head(mtcars, 10)
  })
}

shinyApp(ui, server)

Example on shinylive.io