Using visNetwork to dynamically update nodes in R

Question

the below snapshot visual is created using the \"visNetwork\" package. My requirement here is that I have to hard code the edges and also after using visHierarchicalLayout(), I

Answer 1

If I understand your question correctly, you want to create the edges data frame based on the id in the nodes data frame. Here is one option.

# Extract the id
num <- nodes$id

# Repeat the numbers
num2 <- rep(num, each = 2)

# Remove the first and last numbers
num3 <- num2[c(-1, -length(num2))]

# Create a data frame
edges <- as.data.frame(matrix(num3, ncol = 2, byrow = TRUE))
names(edges) <- c("from", "to")

edges
#   from to
# 1    1  2
# 2    2  3
# 3    3  4
# 4    4  5
# 5    5  6
# 6    6  7