r 在Shiny中插入动态UI数量

Posted 2021-05-23

# Using lapply
# Separate insertUI function and lapply function

library(shiny)

ui = basicPage(
  numericInput("n", "Number", 1, min = 1),
  actionButton("add", "Add UI")
)

server = function(input, output, session) {
  
  insert_ui <- function() {
    insertUI(
      selector = "#add",
      where = "afterEnd",
      ui = textInput(paste0("txt", input$add),
                     "Insert some text")
    )
  }
  
  observeEvent(input$add, {
    lapply(seq(input$n), function(x) insert_ui())
  })
}

shinyApp(ui, server)

# Using for loop

library(shiny)

ui = basicPage(
  numericInput("n", "Number", 1, min = 1),
  actionButton("add", "Add UI")
)

server = function(input, output, session) {
  
  observeEvent(input$add, {
    for (var in seq(input$n)) {
      insertUI(
        selector = "#add",
        where = "afterEnd",
        ui = textInput(paste0("txt", input$add),
                       "Insert some text")
      )
    }
  })
}

shinyApp(ui, server)