Как скрыть ребра в скрытых узлах при разрушении visNetwork

Question

Я пытаюсь свернуть граф visNetwork с помощью collapse аргумент. Однако ребра, соединенные со скрытыми узлами, неправильно свернуты и остаются видимыми. Смотрите минимальный пример:

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 в настоящее время или есть способ это исправить?