在闪亮的应用程序中编辑rhandsontable后更新selectInput()选项

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  titlePanel("编辑rhandsontable后更新selectInput选项"),
  
  sidebarLayout(
    sidebarPanel(
      # selectInput
      selectInput("select", "选择一个选项", choices = c("选项1", "选项2", "选项3"))
    ),
    
    mainPanel(
      # rhandsontable
      rHandsontableOutput("table")
    )
  )
)

server <- function(input, output) {
  # 渲染rhandsontable
  output$table <- renderRHandsontable({
    rhandsontable(data.frame(选项 = input$select))
  })
  
  # 监听rhandsontable的变化
  observeEvent(input$table, {
    # 更新selectInput选项
    updateSelectInput(session, "select", choices = input$table$选项)
  })
}

shinyApp(ui, server)