tableOutput gets stuck with display: none when layout is fitDataTable and data is shiny::req()-ed

[TymekDev]

I just ran into an issue where the tabulator widget gets permanently stuck with display: none.
This happens when layout is set to fitDataTable and the reactive chain is stopped with shiny::req().

Demo

CleanShot.2024-12-10.at.11.32.43.mp4

Code

library(shiny)
library(rtabulator)


ui <- fluidPage(
  checkboxInput("show", "Show Tables"),
  tableOutput("table"),
  tabulatorOutput("tabulator", height = "fit-content")
)

server <- function(input, output, session) {
  data_ <- reactive({
    req(input$show)
    head(iris, 5)
  })

  output$table <- renderTable({
    data_()
  })

  output$tabulator <- renderTabulator({
    tabulator(
      data_(),
      tabulator_options(
        layout = "fitDataTable"
      )
    )
  })
}

shinyApp(ui, server)

[crazycapivara]

@TymekDev I think, this is unfortunately a bug in the JS package.