在dataTable中选择行以在Shiny中显示另一个表中的数据

library(shiny)
library(DT)

# 定义UI界面
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 创建dataTable容器
      DT::dataTableOutput("table1")
    ),
    mainPanel(
      # 创建另一个dataTable容器
      DT::dataTableOutput("table2")
    )
  )
)

# 定义服务器端逻辑
server <- function(input, output) {
  # 生成dataTable1
  output$table1 <- DT::renderDataTable({
    datatable(mtcars, options = list(pageLength = 10))
  })
  
  # 根据用户选择的行生成dataTable2
  output$table2 <- DT::renderDataTable({
    selected_rows <- input$table1_rows_selected
    if (!is.null(selected_rows)) {
      selected_data <- mtcars[selected_rows, ]
      datatable(selected_data, options = list(pageLength = 10))
    }
  })
}

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