带R的网络映射-选择节点时高亮显示用户定义的路径

我在R中使用visNetwork生成一个层次网络图。我希望在选择节点时突出显示的路径遵循用户定义的规则（例如，添加到数据集）。请遵循下面的示例

library(tidyverse)
library(visNetwork)

nodes = data.frame(id = 1:7, level = c(1, 2, 3, 3, 4, 2,1))
edges = data.frame(from = c(1, 2, 2, 4, 6,7,7), to = c(2, 3, 4, 5, 4,6,2))

visNetwork(nodes, edges) %>% 
visHierarchicalLayout() %>% 
visEdges(arrows = "to") %>% 
visOptions(highlightNearest = list(enabled = TRUE, algorithm = "hierarchical",
                                   degree = n_distinct(nodes$level))) %>%
visHierarchicalLayout(direction = "DU") 

此代码生成下面的网络图

当选择节点1时，我得到下面的左图；当选择节点7时，我得到了下面的正确图片。即，高亮显示跟随所有箭头到顶部

我想找到一种方法，可以将节点/边数据添加到用户定义高亮显示的行为？例如，当选择7（在上面右边的图表中）时，它不包括突出显示2和3

我看到两种可能的选择：
1.添加到数据中，使其生成两种类型的边；1只用于显示，另一个用于高亮显示路径以及显示
2.向数据中添加额外的列，以便它知道如何在选择每个节点时进行路径高亮显示

对选项甚至套餐的其他建议持开放态度

谢谢