在Shiny中使用从tagList到renderTable的动态输入

library(shiny)

# 定义UI
ui <- fluidPage(
  titlePanel("动态输入示例"),
  
  sidebarLayout(
    sidebarPanel(
      # 使用tagList动态生成输入选项
      tagList(
        checkboxGroupInput("dataset", "选择数据集",
                           choices = c("mtcars", "iris")),
        numericInput("rows", "显示行数", value = 5)
      )
    ),
    mainPanel(
      # 使用tableOutput来显示表格
      tableOutput("table")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  # 根据用户选择动态渲染表格
  output$table <- renderTable({
    if (input$dataset == "mtcars") {
      head(mtcars, input$rows)
    } else if (input$dataset == "iris") {
      head(iris, input$rows)
    }
  })
}

# 运行Shiny应用程序
shinyApp(ui = ui, server = server)