如何在R Shiny中通过不同ActionButton更新R6对象并实现响应

Shiny的响应式系统仅能识别响应式对象（如reactiveVal、reactiveValues、reactive表达式）的变化，普通R6对象的内部属性修改不会被Shiny自动检测到，这就是你的代码中renderPrint无法响应my_info更新的核心原因。

以下是两种可行的解决方案：

方案一：在R6类中集成响应式触发器 #

通过在R6类内部添加一个reactiveVal作为变化触发器，每次修改数据时更新触发器，让Shiny的输出依赖这个触发器，从而实现自动响应：

library(shiny)
library(R6)

DataInfo <- R6Class(
  classname = "DataInfo",
  public = list(
    data1 = NULL,
    data2 = NULL,
    # 新增响应式触发器，用于通知Shiny数据变更
    change_trigger = NULL,
    
    initialize = function() {
      self$change_trigger <- reactiveVal(0)
    },
    
    AddData1 = function(data1 = NA) {
      self$data1 <- data1
      # 递增触发器数值，确保每次修改都能触发响应
      self$change_trigger(self$change_trigger() + 1)
    },
    
    AddData2 = function(data2 = NA) {
      self$data2 <- data2
      self$change_trigger(self$change_trigger() + 1)
    }
  )
)

ui <- fluidPage(
  actionButton("add_data1_btn", "Add Data1"),
  actionButton("add_data2_btn", "Add Data2"),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  my_info <- DataInfo$new()
  
  observeEvent(input$add_data1_btn, {
    my_info$AddData1(data1 = "Sample data1")
  })
  
  observeEvent(input$add_data2_btn, {
    my_info$AddData2("Sample data2")
  })
  
  output$output <- renderPrint({
    # 依赖触发器，当触发器变化时自动重新渲染
    my_info$change_trigger()
    list(
      data1 = my_info$data1,
      data2 = my_info$data2
    )
  })
}

shinyApp(ui, server)

方案二：外部添加响应式触发器 #

如果不想修改R6类的结构，可以在server端单独创建一个reactiveVal作为触发器，每次点击按钮更新R6对象后手动更新触发器：

library(shiny)
library(R6)

DataInfo <- R6Class(
  classname = "DataInfo",
  public = list(
    data1 = NULL,
    data2 = NULL,
    initialize = function() {},
    AddData1 = function(data1 = NA) {
      self$data1 <- data1
    },
    AddData2 = function(data2 = NA) {
        self$data2 <- data2
    }
  )
)

ui <- fluidPage(
  actionButton("add_data1_btn", "Add Data1"),
  actionButton("add_data2_btn", "Add Data2"),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  my_info <- DataInfo$new()
  # 创建响应式计数器作为触发器
  update_counter <- reactiveVal(0)
  
  observeEvent(input$add_data1_btn, {
    my_info$AddData1(data1 = "Sample data1")
    # 更新计数器触发响应
    update_counter(update_counter() + 1)
  })
  
  observeEvent(input$add_data2_btn, {
    my_info$AddData2("Sample data2")
    update_counter(update_counter() + 1)
  })
  
  output$output <- renderPrint({
    # 依赖计数器，每次计数器变化时重新渲染
    update_counter()
    list(
      data1 = my_info$data1,
      data2 = my_info$data2
    )
  })
}

shinyApp(ui, server)

关于reactiveValues的误区 #

你之前尝试reactiveValues未成功，大概率是因为直接修改了reactiveValues中存储的R6对象的内部属性——由于R6对象的引用未发生变化，Shiny无法检测到内部属性的修改。此时需要配合触发器使用，或者每次修改后重新赋值整个R6对象（但这种方式效率较低）。

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