Does not work well when within a shiny::modalDialog

[j-craggy]

When the helper modal is closed, this also closes its parent shiny::modalDialog container. How can we avoid this behavior?

library(shiny)

ui <- fluidPage(
  fluidRow(
    actionButton("modal", "Open modal")
    )
  )

server <- function(input, output) {

  shinyhelper::observe_helpers()

  observeEvent(input$modal, {
    showModal(
      modalDialog(
        tagList(
          selectizeInput("input", "Input", c(1, 2, 3)) |>
            shinyhelper::helper(title = "Modal helper", type = "inline")
        )
      )
    )
  })
}

shinyApp(ui, server)