如何使用R

Question

我正在尝试将一个简单的整数传递给Shiny Flexdashboard。但我可以出于某种原因只能静态地使用它，但我宁愿反复使用它;

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

这段代码将行数传递给我的Shiny dash，可以通过它来访问;

item_lines = k

但是，如果我这样做，它将无法正常工作，告诉我无法从该位置访问被动内容;

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

没有活动的反应上下文时，不允许操作。 （你试图做一些只能在反应性表达或观察者内部完成的事情。）

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

Answer 1

如果您希望k的值是被动的，则应将其包装在reactive()中，即：

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

然后将其值调用为k()