library(visNetwork)
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
A=visNetwork(nodes, edges, width = "100%")
print(A)