如何通过R Shiny应用程序的服务器部分中的循环动态创建反应式数据集？

library(shiny)

# 定义UI界面
ui <- fluidPage(
  titlePanel("动态创建反应式数据集示例"),
  sidebarLayout(
    sidebarPanel(
      numericInput("n", "数据集数量:", value = 1, min = 1, max = 10)
    ),
    mainPanel(
      # 动态显示创建的反应式数据集
      uiOutput("datasets_ui")
    )
  )
)

# 定义服务器部分
server <- function(input, output) {
  # 创建反应式数据集
  datasets <- reactiveValues()

  observeEvent(input$n, {
    # 清空现有的数据集
    datasets <- reactiveValues()

    # 使用for循环创建指定数量的反应式数据集
    for (i in 1:input$n) {
      dataset_name <- paste0("dataset_", i)
      datasets[[dataset_name]] <- reactive({
        # 根据需要自定义数据集的内容
        # 这里以随机生成的数据为例
        data.frame(
          x = rnorm(10),
          y = rnorm(10)
        )
      })
    }
  })

  output$datasets_ui <- renderUI({
    datasets_ui <- lapply(names(datasets), function(dataset_name) {
      dataset <- datasets[[dataset_name]]
      plotOutput(dataset_name, height = "300px")
    })
    do.call(tagList, datasets_ui)
  })

  # 动态渲染反应式数据集的输出
  for (i in 1:input$n) {
    dataset_name <- paste0("dataset_", i)
    output[[dataset_name]] <- renderPlot({
      dataset <- datasets[[dataset_name]]
      # 这里以散点图为例，可以根据实际需求进行修改
      plot(dataset(), main = dataset_name)
    })
  }
}

# 启动应用程序
shinyApp(ui = ui, server = server)