R/Shinyで起動時にmodalで項目選択

4133 ワード
R Shiny R テキストリンク

easyCloseをFALSEにしないとmodalの外を選択したら、modalが閉じてしまう。

library(shiny)

ui <- fluidPage(
)

server <- function(input, output, session) {
  showModal(
    ui = modalDialog(
      selectInput(inputId = "select", label = "select", choices = colnames(iris)),
      title = "modal",
      footer = actionButton(
        inputId = "modal",
        label = "OK"),
      easyClose = FALSE
    )
  )

  observeEvent(eventExpr = input$modal, handlerExpr = {
    removeModal()
  })
}

shinyApp(ui = ui, server = server)