这是一个什么样的对象，反应式的？

我的 Server.R 中有这段代码：

selection1 <- reactive({filter(filter(DF1, PC %in% input$dynamic),
                   AGE >= input$age[1] & AGE <= input$age[2])})

DF1当然是一个数据框对象，input$dynamic是一个 checkboxGroupInput 和input$age是滑块输入。但是什么样的物体selection1？它也是一个数据框吗？

然后我想计算变量中唯一出现的次数COMMUN in selection1，所以我尝试了这个：

selection2 <- length(unique(selection1$COMMUN))

但我有这个错误消息：

警告：$ 中的错误：“closure”类型的对象不可取子集

请问我该如何进行此操作？

selection1 is a reactive功能。在 Shiny 中，这意味着它是一个保存/缓存数据的函数。当您调用该函数并且其输入发生变化时，它保存的数据就会更新。如果调用它时输入没有更改，它将返回缓存的数据。

要访问数据，您需要使用调用函数本身selection1()，然后使用常用的函数/代码来对数据进行子集化。所以在你的情况下会是

selection2 <- length(unique(selection1()$COLUMN))

当您尝试执行以下操作时，您看到的错误是标准错误$对函数进行操作，而不使用调用该函数()

foo <- function(){
    bar = data.frame(bar = c(1,2,3))
}

foo$bar
Error in foo$bar : object of type 'closure' is not subsettable

foo()$bar
[1] 1 2 3

如果您想深入了解结构的实际细节reactive对象，只需调用str看看它

foo <- reactive()

str(foo)

function ()  
 - attr(*, "observable")=Classes 'Observable', 'R6' <Observable>
  Public:
    .dependents: environment
    .domain: NULL
    .error: FALSE
    .execCount: 0
    .func: function (...) 
    .invalidated: TRUE
    .label: foo
    .mostRecentCtxId: 
    .running: FALSE
    .updateValue: function () 
    .value: NULL
    .visible: 
    clone: function (deep = FALSE) 
    getValue: function () 
    initialize: function (func, label = deparse(substitute(func)), domain = getDefaultReactiveDomain(), 
    self: Observable, R6 
 - attr(*, "class")= chr "reactive"