tableOutput() now gets the spinner treatment

rstudio · Dec 13, 2024 · 3b0097d · 3b0097d
1 parent 22d13df
commit 3b0097d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/bootstrap.R b/R/bootstrap.R
@@ -1113,7 +1113,7 @@ plotOutput <- function(outputId, width = "100%", height="400px",
 #' @rdname renderTable
 #' @export
 tableOutput <- function(outputId) {
-  div(id = outputId, class="shiny-html-output")
+  div(id = outputId, class="shiny-html-output shiny-table-output")
 }
 
 dataTableDependency <- list(

diff --git a/srcts/extras/busy-indicators/busy-indicators.scss b/srcts/extras/busy-indicators/busy-indicators.scss
@@ -70,7 +70,7 @@
       Note that, even if we could position it, we'd probably want to disable it
       if it has recalculating children.
     */
-    &.shiny-html-output::after {
+    &.shiny-html-output:not(.shiny-table-output)::after {
       display: none;
     }
   }
@@ -124,6 +124,9 @@
   &.shiny-busy:has(.recalculating:not(.shiny-html-output))::after {
     display: none;
   }
+  &.shiny-busy:has(.recalculating.shiny-table-output)::after {
+    display: none;
+  }
   &.shiny-busy:has(#shiny-disconnected-overlay)::after {
     display: none;
   }