在shiny的modalDialog中插入新行

library(shiny)

ui <- fluidPage(
  actionButton("openDialog", "Open Dialog")
)

server <- function(input, output, session) {
  observeEvent(input$openDialog, {
    showModal(
      modalDialog(
        title = "Modal Dialog",
        fluidRow(
          column(6, textInput("input1", "Input 1")),
          column(6, textInput("input2", "Input 2"))
        ),
        actionButton("addRow", "Add Row"),
        tags$div(id = "dynamicRows")
      )
    )
  })
  
  observeEvent(input$addRow, {
    new_row <- tags$div(
      fluidRow(
        column(6, textInput(paste0("input", input$addRow), paste0("Input ", input$addRow)))
      )
    )
    insertUI(
      selector = "#dynamicRows",
      where = "beforeEnd",
      ui = new_row
    )
  })
}

shinyApp(ui, server)