R/Shiny로 시작할 때 모드에서 항목 선택

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)