Shiny R中datamods未修改时用原始值，启动即计算如何实现？

问题描述 #

我在构建一个展示模型模拟结果的Shiny App，用户可自定义所有输入变量。App包含两个标签页：

• 第一个是模拟结果页，展示计算结果
• 第二个是输入数据表页，支持编辑输入变量

需求是：输入数据表未被修改时，模拟计算默认使用原始值运行。但当前启动App后，第一个标签页的计算（示例为求和）必须点击过第二个输入数据表标签页后才会执行，不符合需求。

解决方案 #

核心问题是edit_data_server返回的响应式对象edited_r，只有在对应的UI组件（edit_data_ui）被渲染后才会初始化，初始状态下edited_r()为NULL。我们只需要在计算时判断该对象是否存在，不存在则使用原始数据即可。

修改后的完整代码 #

library(shiny)
library(datamods)
library(reactable)

# 创建测试数据框
aa <- c("A","B","C","D")
bb <- c(1:4)
test_df <- data.frame(aa,bb)

# UI部分
ui <- fluidPage(
  navbarPage(
    title = "Test",
    header = tags$head(tags$style(type='text/css', ".irs-grid-text { font-size: 10pt; }")),
    tabPanel(
      title = "Example",
      mainPanel(
        verbatimTextOutput("test_data")
      )
    ),
    tabPanel(
      title = "Input data",
      mainPanel(
        edit_data_ui(id = "id")
      )
    )
  )
)

# Server部分
server <- function(input, output) {
  edited_r <- edit_data_server(
    id = "id",
    data_r = reactive(test_df),
    add = FALSE,
    update = TRUE,
    delete = FALSE,
    file_name_export = "datas",
    var_labels = list(
      aa = "name",
      bb = "value"
    ),
    var_edit = list("bb"),
    reactable_options = list(
      defaultColDef = colDef(filterable = TRUE),
      selection = "single",
      columns = list(
        bb = colDef(name = "value", style = list(fontWeight = "bold"))
      ),
      bordered = TRUE,
      compact = TRUE,
      searchable = TRUE,
      highlight = TRUE
    )
  )

  output$test_data <-  renderPrint({
    # 判断edited_r是否初始化，未初始化则使用原始数据
    current_df <- if (!is.null(edited_r())) edited_r() else test_df
    sum(current_df$bb)
  })
}

# 运行App
shinyApp(ui = ui, server = server)

说明 #

• 启动App后，第一个标签页会直接计算原始数据的求和结果（1+2+3+4=10）
• 当切换到输入数据标签页并修改数值后，返回第一个标签页会自动更新计算结果
• 核心逻辑是通过if (!is.null(edited_r()))判断响应式对象是否就绪，未就绪时回退到原始数据test_df

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