r - 用户编辑一个表，更改反映在另一个表中

Question

我有这个问题，我能找到的最接近的是参考这里的提交，但它并没有完全解决我要解决的问题反应性闪亮模块共享数据

参考上面链接中的更正示例，如果我希望能够编辑表 a（列 x_2 中的单元格），这将自动更新表 c（列 x_2 中的相应单元格）。

谢谢

Answer 1

这是一个更简单的版本，它不适用于代理（并使用新的模块接口），我希望它没问题。您可以更改前 2 个表中的任何值，第 3 个表显示总和并更新。诀窍是编辑数据的模块必须将编辑后的数据作为反应返回，这些在主服务器函数中保存为变量。基于这些数据进行更新的模块需要将这些变量作为反应输入。

非常重要的是：

• 返回数据的模块需要返回一个响应式，最简单的方法是return(reactive({returnvalue}))
• 在服务器函数中，传递给模块的反应不能被评估，例如你必须使用my_reactive_value而不是my_reactive_value()

### Libraries
library(shiny)
library(dplyr)
library(DT)

### Data----------------------------------------
set.seed(4)
table_a <- data.frame(
  id=seq(from=1,to=10),
  x_1=rnorm(n=10,mean=0,sd=10),
  x_2=rnorm(n=10,mean=0,sd=10),
  x_3=rnorm(n=10,mean=0,sd=10)
) %>% 
  mutate_all(round,3)

table_b <- data.frame(
  id=seq(from=1,to=10),
  x_1=rnorm(n=10,mean=0,sd=10),
  x_2=rnorm(n=10,mean=0,sd=10),
  x_3=rnorm(n=10,mean=0,sd=10)
)%>% 
  mutate_all(round,3)

mod_table_edit <- function(id, data_initialisation) {
  moduleServer(
    id,
    function(input, output, session) {
      # initialise the reactive data object for the table
      data <- reactiveValues(table = data_initialisation)
      
      # render the table
      output$table <- renderDT({
        datatable(data$table,
                  editable = TRUE)
      })
      
      # update the underlying data
      observeEvent(input$table_cell_edit, {
        data$table <- editData(data$table, input$table_cell_edit)
      })
      
      # return the data as a reactive
      return(reactive(data$table))
    }
  )
}

mod_table_add <- function(id, data_input_1, data_input_2) {
  moduleServer(
    id,
    function(input, output, session) {
      # do the calculations
      data_table <- reactive({
        data_input_1() + data_input_2()
      })
      
      # render the table
      output$table <- renderDT({
        datatable(data_table())
      })
    }
  )
}

modFunctionUI <- function(id) {
  ns <- NS(id)
  DTOutput(ns("table"))
}

ui <- fluidPage(
  fluidRow(
    column(4,
           modFunctionUI("table_1")),
    column(4,
           modFunctionUI("table_2")),
    column(4,
           modFunctionUI("table_3"))
  )
)

server <- function(input, output, session) {
  # call the modules for the editable tables and store the results
  data_table_1 <- mod_table_edit("table_1", data_initialisation = table_a)
  data_table_2 <- mod_table_edit("table_2", data_initialisation = table_b)
  
  # call the module for the table that takes inputs
  # the reactives musn't be evaluated
  mod_table_add("table_3",
                data_input_1 = data_table_1,
                data_input_2 = data_table_2)
}

shinyApp(ui, server)