Shiny+DataEditR：如何将前表用户输入作为后表下拉选项？

问题场景 #

我正在开发Shiny应用，使用DataEditR库实现一系列可编辑表格。在Table1中用户输入姓氏列表，希望将这些姓氏作为Table2下拉菜单的选项，但使用静态列表时Table2代码正常，调用Table1的唯一姓氏值时代码运行失败。实际应用中后续表格的列选项需限制为前序步骤的数据，请问哪里出错了？

错误原因拆解 #

• 响应式对象调用错误：table_1_df是DataEditR返回的响应式对象，必须通过()调用才能获取表格数据，直接写table_1_df$last_name是在访问对象本身的属性，而非表格列数据。
• 响应式依赖绑定错误：原代码中last_names_list仅在点击go_1按钮时更新，但用户编辑Table1的姓氏后数据会变化，此时列表无法自动刷新，需要将其依赖绑定到table_1_df()的变化上。
• 下拉选项传递错误：col_options中直接使用last_names_list这个响应式对象是无效的，必须用last_names_list()获取实际值；同时col_options需要设为响应式表达式，才能动态同步前序表格的更新。

修正后的完整代码 #

library(shiny)
library(DataEditR)
library(tidyverse)

# UI部分
ui <- fluidPage(
    titlePanel("simple example"),
    
    actionButton("go_1", "Go"),
    br(),
    dataEditUI("table_1"),
    br(),
    textOutput("msg_1"),
    br(),
    actionButton("go_2", "Go to table 2"),
    br(),
    dataEditUI("table_2")
)

# Server部分
server <- function(input, output, session) {

  # 初始化Table1
  table_1_df <- dataEditServer(
    "table_1",
    data = eventReactive(input$go_1, {
      data.frame(id = rep(1:5))
    }),
    title = 'Table 1',
    hide = TRUE,
    col_edit = FALSE,
    col_names = FALSE,
    col_readonly = c('id'),
    col_bind = c('last_name')
  )

  # 打印Table1数据用于调试
  output$msg_1 <- renderPrint(str(table_1_df()))
  
  # 动态获取Table1的唯一姓氏，同步表格更新
  last_names_list <- reactive({
    req(table_1_df())  # 确保Table1已加载数据
    unique(table_1_df()$last_name) %>% na.omit()  # 过滤空值
  })
  
  # 初始化Table2，下拉菜单绑定动态姓氏列表
  table_2_df <- dataEditServer(
    "table_2",
    data = eventReactive(input$go_2, {
      data.frame(id2 = rep(1:5))
    }),
    title = 'Table 2',  # 修正原代码的标题错误
    hide = TRUE,
    col_edit = TRUE,
    col_names = FALSE,
    col_readonly = c('id2'),
    col_bind = c('last_name','first_name'),
    # 响应式生成下拉选项
    col_options = reactive({
      req(last_names_list())
      list(last_name = last_names_list())
    })
  )

}

# 运行应用
shinyApp(ui = ui, server = server)

关键修正点说明 #

1. 把table_1_df$last_name改为table_1_df()$last_name，正确读取响应式表格的列数据。
2. 将last_names_list改为响应式对象，依赖table_1_df()，确保Table1数据更新时，姓氏列表自动同步。
3. 将col_options设为响应式表达式，实时获取最新的姓氏列表作为下拉选项，同时用req()避免数据未加载时的错误。
4. 修正了Table2的标题错误（原代码误写为"Table 1"）。

内容的提问来源于stack exchange，提问作者nikb999