visNetwork-更改节点及其相邻节点的属性

Question

我是visNetwork的新手，并且对Java脚本的了解并不多，所以我一直在努力了解如何使用此程序包。我想做的是，当选定一个节点时，我希望能够将选定的节点存储在某个变量中，以便可以更改其设置。同样，我也希望能够访问其子节点。 例如，当一个节点被选中时，我希望其所有子节点都被隐藏，而当再次选择它时，我希望其所有子节点都再次可见。 这是一个小例子

nodes2 <- data.frame(id = 1:6, label = c(1:6))
edges2 <- data.frame(from = c(1,1,2,3,1,4,5), 
                     to = c(2,3,4,5,6,6,6),
                     arrows = "to")

visNetwork(nodes2, edges2) %>%
  visEvents(selectNode = "function(properties) {
            alert('selected nodes: ' + properties.nodes);}")

在这里，如果从节点A到B有一条边，则将A视为子节点。 因此，在我的示例中，当选择4时，我希望隐藏节点2（并递归地将2的所有子节点，即1）隐藏起来。如果我选择了6，则应该隐藏4和5（然后递归地选择2和3，然后是1）。

非常感谢您的帮助。

谢谢