如何以顺序的方式执行闪亮的模块？
如何以顺序的方式执行闪亮的模块？
提问于 2018-04-28 20:10:06
我正在尝试构建一个具有闪亮模块的应用程序。这些模块需要按顺序执行，并且每个模块都构建在相同的对象上，如下例所示：
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)做这件事最好的方法是什么？
提前谢谢你。
回答 1
Stack Overflow用户
发布于 2018-04-29 16:00:32
如果没有完整的应用程序可用来测试，很难解决这个问题，但这是我在解决问题时使用的逻辑：
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。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50080621
复制相关文章
相似问题
腾讯云开发者
