Things like renderPlot should not create 5 nodes on the screen by default. Instead, it should be one super node that contains all 5 nodes.
Super nodes should:
- Be able to expand and show contents
- Be able to collapse to hide contents
- Have any outside parent nodes be parents
- Have any downstream children be children
In the case of a deduper where
deduper <- function(x, label) {
res <- reactiveVal(x, label = label, node_group = "deduper")
observe(label = "obs_x", node_group = "deduper", {
res(x())
})
res
}
y <- deduper(x, label = "y")
where it would show graph
and not graph