Question

我正在尝试使用闪亮的模块构建应用程序。这些模块需要以顺序方式执行，每个模块都建立在相同的对象上，如下例所示：

QG <- callModule(loadInput, "first")
QG <- callModule(addParameter, "second", QG) 
QG <- callModule(analyze, "third",  QG)

我用反应式表达式包装返回值，我尝试为每个模块输出设置一个唯一的名称（例如下面的例子），但它不起作用。

QG1 <- callModule(loadInput, "first")
QG2 <- callModule(addParameter, "second", QG1) 
QG3 <- callModule(analyze, "third",  QG2)

最好的方法是什么？

提前谢谢。

Answer 1

如果没有可供测试的完整应用程序，很难解决这个问题，但这是我用来解决问题的逻辑：

values <- reactiveValues(
  QG1 = NULL,
  QG2 = NULL,
  QG3 = NULL
)

values$QG1 <- callModule(loadInput, "first")

observeEvent(values$QG1, {
  values$QG2 <- callModule(addParameter, "second", values$QG1)
})

observeEvent(values$QG2, {
  values$QG3 <- callModule(analyze, "third", values$QG2)
})

在第一个块中，我们创建了多个反应值，用于保存每个模块的输出。我们将其中的每一项初始化为NULL，因为NULL默认会忽略observeEvent()。

接下来，我们可以调用第一个模块并将其返回的结果设置为values$QG1。 loadInput不需要返回反应式表达式，事实上，我不会让任何模块返回反应式表达式。更改values$QG1的值后，系统会触发第一个observeEvent()，而后者会更改values$QG2的值。最后，values$QG2值的更改将触发第二个observeEvent()，最终将其值返回values$QG3。

如何以顺序方式执行闪亮的模块？

1 个答案: