shiny::useBusyIndicators() not working with gt::gt_output #4283
Description
It may be related to #4172.
Busy indicator is not working (not visible) with gt::gt_output.
System details
Browser Version:
Output of sessionInfo():
R version 4.5.1 (2025-06-13 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows 11 x64 (build 26100)
Matrix products: default
LAPACK version 3.12.1
locale:
[1] LC_COLLATE=Polish_Poland.utf8
[2] LC_CTYPE=Polish_Poland.utf8
[3] LC_MONETARY=Polish_Poland.utf8
[4] LC_NUMERIC=C
[5] LC_TIME=Polish_Poland.utf8
time zone: Europe/Warsaw
tzcode source: internal
attached base packages:
[1] stats graphics grDevices datasets utils methods
[7] base
other attached packages:
[1] shiny_1.11.1
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.5 gt_1.0.0
[4] rlang_1.1.6 renv_1.1.5 promises_1.3.3
[7] generics_0.1.4 jsonlite_2.0.0 xtable_1.8-4
[10] glue_1.8.0 DT_0.33 htmltools_0.5.8.1
[13] httpuv_1.6.16 reactR_0.6.1 sass_0.4.10
[16] jquerylib_0.1.4 crosstalk_1.2.2 tibble_3.3.0
[19] fastmap_1.2.0 yaml_2.3.10 lifecycle_1.0.4
[22] memoise_2.0.1 compiler_4.5.1 dplyr_1.1.4
[25] htmlwidgets_1.6.4 Rcpp_1.1.0 pkgconfig_2.0.3
[28] later_1.4.4 digest_0.6.37 R6_2.6.1
[31] tidyselect_1.2.1 pillar_1.11.0 magrittr_2.0.3
[34] bslib_0.9.0 tools_4.5.1 withr_3.0.2
[37] mime_0.13 reactable_0.4.4 cachem_1.1.0
[40] xml2_1.4.0
Example application or steps to reproduce the problem
Below I'm rendering three tables: DT, gt and reactable in separate columns, so it can be clearly seen that busy indicators are visible only for DT and reactable, not gt (gt table is in the middle).
library(shiny)
ui <- fluidPage(
shiny::useBusyIndicators(),
bslib::layout_column_wrap(
DT::DTOutput("dt"),
gt::gt_output("gt"),
reactable::reactableOutput("reactable")
)
)
server <- function(input, output, session) {
output$dt <- DT::renderDataTable({
Sys.sleep(2)
data.frame(package = "DT") |>
DT::datatable()
})
output$gt <- gt::render_gt({
Sys.sleep(2)
data.frame(package = "gt") |>
gt::gt()
})
output$reactable <- reactable::renderReactable({
Sys.sleep(2)
data.frame(package = "reactable") |>
reactable::reactable()
})
}
shinyApp(ui, server)Describe the problem in detail
When the app opens, second (in the middle) busy indicator is not visible - this is the place where gt output is rendering.