Input elements don't work as expected when in a grid container

[DivadNojnarg]

Hi @pvictor!

When I put input element within a grid, they stop working. That said, I still see the class shiny-bound-input, so I don't see why it should not work:

library(shiny)
library(bslib)
library(ggplot2)
library(gridstackr)
library(sortable)

ui <- page_fillable(
  tags$h2("GridStack example"),
  layout_sidebar(
    sidebar = sidebar(
      width = 300,
      gridstackOutput("bucket")
    ),
    gs_trash(id = "mytrash", label = "Drag here to remove", height = "50px"),
    gridstackOutput("dashboard")
  )
)

server <- function(input, output, session) {

  output$bucket <- renderGridstack({
    gridstack(
      disableResize = TRUE,
      column = 1,
      options = list(
        acceptWidgets = TRUE,
        dragOut = TRUE
      ),
      gs_item(
        selectInput("variable", "Variable:",
                c("Cylinders" = "cyl",
                  "Transmission" = "am",
                  "Gears" = "gear")),
    tableOutput("data")
    ))
  })

  output$dashboard <- renderGridstack({
    gridstack(
      margin = "10px",
      cellHeight = "140px",
      resize_handles = "all",
      float = TRUE,
      options = list(
        acceptWidgets = TRUE
      ),
      trash_id = "mytrash"
    )
  })

  observeEvent(input$dashboard_layout, {
    print(input$dashboard_layout)
  })

  output$data <- renderTable({
    mtcars[, c("mpg", input$variable), drop = FALSE]
  }, rownames = TRUE)

}

shinyApp(ui, server)

[DivadNojnarg]

With this second simple example working well:

library(shiny)
library(bslib)
library(ggplot2)
library(gridstackr)
library(sortable)

ui <- page_fillable(
  tags$h2("GridStack example"),
  layout_sidebar(
    sidebar = sidebar(
      width = 300,
      gridstackOutput("bucket")
    ),
    gs_trash(id = "mytrash", label = "Drag here to remove", height = "50px"),
    gridstackOutput("dashboard"),
    verbatimTextOutput("test")
  )
)

server <- function(input, output, session) {

  output$bucket <- renderGridstack({
    gridstack(
      disableResize = TRUE,
      column = 1,
      options = list(
        acceptWidgets = TRUE,
        dragOut = TRUE
      ),
      gs_item(
        radioButtons("dist", "Distribution type:",
               c("Normal" = "norm",
                 "Uniform" = "unif",
                 "Log-normal" = "lnorm",
                 "Exponential" = "exp")),
  plotOutput("distPlot")
    ))
  })

  output$dashboard <- renderGridstack({
    gridstack(
      margin = "10px",
      cellHeight = "140px",
      resize_handles = "all",
      float = TRUE,
      options = list(
        acceptWidgets = TRUE
      ),
      trash_id = "mytrash"
    )
  })

  output$test <- renderPrint(data.table::rbindlist(input$dashboard_layout, fill = TRUE))

  output$distPlot <- renderPlot({
    dist <- switch(input$dist,
                   norm = rnorm,
                   unif = runif,
                   lnorm = rlnorm,
                   exp = rexp,
                   rnorm)

    hist(dist(500))
  })

}

shinyApp(ui, server)

There seem to be some issues with dependencies like selectize, ionrangeslider, ... We can workaround the first example by setting selectize = FALSE. shiny.bindAll, shiny.unbindAll and shiny.initializeInputs don't seem to be of much help.