R: горизонтальное движение visnetwork для visHierarchical

Question

Когда используешь visnetwork и visHierarchical В макете я заметил, что можно перемещать узлы только горизонтально или вертикально, но не в обоих направлениях. Это хлопотно, когда у вас есть узлы на одном уровне, соединяющиеся друг с другом. Есть ли способ включить горизонтальное и вертикальное перемещение узлов в иерархической структуре? В противном случае, нужно вручную установить все координаты x и y, чтобы получить прилично выглядящий график. Вот пример, где вы можете видеть, что его можно перемещать только в одном направлении:

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

visNetwork(nodes, edges, width = "100%") %>% 
  visEdges(arrows = "from") %>% 
  visHierarchicalLayout() # same as   visLayout(hierarchical = TRUE) 

Направление разрешенного движения кажется продиктованным direction вариант с visHierarchicalLayout вызов.