类R中的无功场

Question

是否可以在类中创建一个反应性字段，或者在其字段更改时通知应用程序的类？

我得到了这个类，它是我的shinyApp的模型：

CatalogModele <- setRefClass("CatalogModele",
  fields = list(catalogs = "list"),
  methods = list(
    initialize = function(catalogs_args = list()) {
      catalogs <<- catalogs_args
    },
    add_catalog = function(key, value) {
      catalogs[[key]] <<- value 
    }
  )
)

当我在全局对象上使用"add_catalog()“时，我想更新一些闪亮的小部件。我试过这个：

catalogModele <<- reactive({CatalogModele()})
on.exit(rm(catalogModele, pos = ".GlobalEnv"))

但当我观察我的变量时，什么都不会发生：

observeEvent(catalogModele(), {
    str(catalogModele()$catalogs)
})

感谢您的阅读。

Answer 1

我使用R6类是为了类似的目的。也许这将帮助您为参考类开发类似的设计。

library(R6)
library(shiny)

myClass <- R6Class(
  public = list(
    catalogs = reactiveValues(),
    add_catalog = function(key,value){
      self$catalogs[[key]] <- value
    }
  )
)

A = myClass$new()

shinyApp(
  fluidPage(
    inputPanel(
      textInput('key', 'key'),
      textInput('value', 'value'),
      actionButton('go', 'add')
    ),
    verbatimTextOutput('textOut')
  ),
  function(input, output, session){
    observeEvent(input$go,
      { A$add_catalog(input$key, input$value) }
    )
    output$textOut <- renderPrint({
      reactiveValuesToList(A$catalogs)
    })
  }
)

编辑:这是一个实际的工作解决方案。我刚刚将成员reactives从R6类包装成一个列表，并使它成为引用类的成员。

CatalogModele <- setRefClass(
  "CatalogModele",
  fields = list(catalogs = "list"),
  methods = list(
    initialize = function(catalogs_args = list()) {
      catalogs <<- list(reactives = reactiveValues())
    },
    add_catalog = function(key, value) {
      catalogs$reactives[[key]] <<- value 
    },
    get_catalogs = function()
      reactiveValuesToList(catalogs$reactives)
  )
)

B = CatalogModele()

shinyApp(
  fluidPage(
    inputPanel(
      textInput('key', 'key'),
      textInput('value', 'value'),
      actionButton('go', 'add')
    ),
    verbatimTextOutput('textOut')
  ),
  function(input, output, session){
    observeEvent(input$go,
                 { B$add_catalog(input$key, input$value) }
    )
    output$textOut <- renderPrint(B$get_catalogs())
  }
)

在这两种情况下，最好只是使类的某些部分具有反应性。否则，您可能会遇到非常糟糕的性能在您的应用程序。