R Shiny：如何动态附加任意数量的输入小部件

使用R Shiny可以创建交互式的Web应用程序，为用户提供数据可视化和分析的功能。在Shiny应用程序中，我们可以添加各种输入小部件，如文本框、下拉菜单和滑块，以便用户可以与应用程序进行交互。然而，在某些情况下，我们可能需要根据用户的需求动态地添加更多的输入小部件。本文将介绍如何使用R Shiny动态附加任意数量的输入小部件，并提供一个具体的案例代码。

R
library(shiny)
ui <- fluidPage(
  titlePanel("动态附加输入小部件"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addBtn", "添加输入框")
    ),
    mainPanel(
      uiOutput("inputFields")
    )
  )
)
server <- function(input, output) {
  # 追踪添加按钮的点击次数
  count <- reactiveValues(btnClicks = 0)
  
  # 创建动态输入小部件
  observeEvent(input$addBtn, {
    count$btnClicks <- count$btnClicks + 1
    output$inputFields <- renderUI({
      inputList <- lapply(1:count$btnClicks, function(i) {
        textInput(paste0("input", i), paste0("输入框", i), value = "")
      })
      do.call(tagList, inputList)
    })
  })
}
shinyApp(ui, server)