Action button failure in modal dialog

ismirsehregal · August 22, 2025, 8:17am

The issue might be that selectInput is missing dependencies.

Please see this discussion:

github.com/rstudio/shiny

How to use `Shiny.bindAll` for a DT table?

opened 12:03AM - 31 Jan 24 UTC

closed 04:10PM - 11 Mar 24 UTC

stla

In order to use a Shiny widget in a DT table with **shiny** `< 1.8`, we used the… following options: ```r options = list( preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'), drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); }') )) ``` That doesn't work anymore. This is probably due to the [breaking change](https://cran.r-project.org/web/packages/shiny/news/news.html) in **shiny** `1.8.0`. I tried to play with `async/await` without success. What should we do? Here is an example: ```r library(shiny) library(DT) dat <- data.frame( select = as.character(selectInput("id", label = NULL, choices = c("A", "B"))) ) ui <- fluidPage( br(), DTOutput("dtable") ) server <- function(input, output, session) { output$dtable <- renderDT({ dat }, rownames = FALSE, escape = FALSE, options = list( preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'), drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); }') )) observe({ print(input$id) }) } shinyApp(ui, server) ```

If this is the case, something like:

shiny:::selectizeDependency()

or

htmltools::findDependencies(selectizeInput("dummy", label = NULL, choices = NULL))

in your UI should fix it.