如何使用R将反应性整数传递给Shiny Dashboard

Question

我正在尝试将一个简单的整数传递给Shiny Flexdashboard。 但是出于某种原因，我只能静态地这样做，但是我宁愿重新激活它。

aggregated_static <- readRDS( "../rdsdata/aggregated_static.rds")
k <- nrow(aggregated_static)

那段代码将行数传递给我的Shiny破折号，可以在其中进行访问；

item_lines = k

但是，如果我这样操作，它将无法正常工作，并告诉我无法从该位置访问反应性内容。

set_aggregated <- reactiveFileReader(1000, session,  "./rdsdata/set_aggregated.rds", readRDS)
k <- nrow(aggregated_static())

没有活动的响应上下文，不允许进行操作。 （您试图做只能从反应式表达式或观察器内部完成的操作。）

现在，我尝试使用Isolate，创建一个使用react（{}）封闭该函数的函数，但是我只是想让该值传递。 有没有办法做到这一点？

Answer 1

如果希望k的值是反应性的，则应将其包装在reactive() ，即：

k <- reactive(nrow(aggregated_static()))

然后将其值称为k()