r - 折叠visNetwork时如何隐藏隐藏节点的边缘

Question

我正在尝试使用该collapse参数折叠 visNetwork 图。但是，连接到隐藏节点的边没有正确折叠并保持可见。请参阅最小示例：

library(visNetwork)
library(magrittr)
nodes <- data.frame(id = letters[1:7],
                    label = letters[1:7],
                    hidden = c(FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE),
                    x = c(1, rep(200, 3), rep(400, 3)),
                    y = c(rep(200, 2), 100, 300, 100, 300, 200))
edges <- data.frame(from = c('a', 'b', 'b', 'c', 'd', 'b'),
                    to = c('b', 'c', 'd', 'e', 'f', 'g'))
visNetwork(nodes, edges) %>%
  visPhysics(enabled = FALSE) %>%
  visNodes(shape = 'circle') %>%
  visOptions(collapse = list(enabled = TRUE, keepCoord = TRUE))

双击节点 b 时，我希望隐藏所有传出边，但是连接到隐藏节点 c 和 d 的边仍然可见。目前这在 visNetwork 中是不可能的，还是有办法解决这个问题？

标签： rvisnetwork