UI elements in bulmaModal?

[tylerlittlefield]

Is it possible to put UI elements (e.g. dropdown) in the modals?

library(shiny)
library(shinybulma)

ui <- bulmaPage(
  bulmaActionButton("show_modal", "Show modal")
)

server <- function(input, output){
  observeEvent(input$show_modal, {
    bulmaModal(
      id = "mymodal", 
      list(
        title = "Modal title",
        body = bulmaSelectInput("test", "test", letters)
      )
    )
  })
}

if (interactive()) shinyApp(ui, server)

[JohnCoene]

library(shiny)
library(shinybulma)

ui <- bulmaPage(
  bulmaActionButton("show_modal", "Show modal")
)

server <- function(input, output){
  observeEvent(input$show_modal, {
    bulmaModal(
      id = "mymodal", 
      list(
        title = "Modal title",
        body = as.character(bulmaSelectInput("test", "test", letters))
      )
    )
  })
}

if (interactive()) shinyApp(ui, server)

[JohnCoene]

Pushed a fix, you can reinstall and omit as.character

[tylerlittlefield]

Nice, thanks @JohnCoene !