为每行创建selectInput并使用所选值更新反应表

library(shiny)

# 创建一个包含selectInput的表格
createTable <- function(n) {
  table <- matrix(ncol = 2, nrow = n)
  
  for (i in 1:n) {
    table[i, 1] <- paste0("selectInput", i)
    table[i, 2] <- selectInput(inputId = paste0("select", i),
                               label = NULL,
                               choices = c("Option 1", "Option 2", "Option 3"),
                               selected = "Option 1")
  }
  
  return(table)
}

# 创建一个反应表，根据所选值更新
updateTable <- function(input, output, session) {
  observe({
    n <- 3  # 表格的行数
    
    for (i in 1:n) {
      selectedValue <- input[[paste0("select", i)]]
      output[[paste0("selectInput", i)]] <- renderText({
        paste0("You selected: ", selectedValue)
      })
    }
  })
}

# 创建Shiny应用程序
ui <- fluidPage(
  fluidRow(
    column(width = 6, tableOutput("table"))
  )
)

server <- function(input, output, session) {
  output$table <- renderTable({
    createTable(3)
  })
  
  updateTable(input, output, session)
}

shinyApp(ui, server)