R Shiny:如何根据行选择导入数据？

library(shiny)

# UI部分
ui <- fluidPage(
  selectInput("rows", "选择行", choices = NULL),
  tableOutput("data")
)

# 服务器端部分
server <- function(input, output) {
  # 读取数据
  data <- read.csv("data.csv")  # 假设数据保存在data.csv文件中
  
  # 更新选择框的选项
  observe({
    choices <- seq_len(nrow(data))
    updateSelectInput(session, "rows", choices = choices)
  })
  
  # 根据选择的行导入数据
  output$data <- renderTable({
    selected_rows <- input$rows
    if (!is.null(selected_rows)) {
      selected_data <- data[selected_rows, ]
      selected_data
    }
  })
}

# 运行应用
shinyApp(ui, server)