# NOT RUN {
# }
# NOT RUN {
nodes <- data.frame(id = 1:3, group = c("B", "A", "B"))
edges <- data.frame(from = c(1,2), to = c(2,3))
visNetwork(nodes, edges) <!-- %>% -->
visGroups(groupname = "A", color = "red") <!-- %>% -->
visGroups(groupname = "B", color = "lightblue") <!-- %>% -->
visLegend() <!-- %>% visExport() -->
visNetwork(nodes, edges) <!-- %>% -->
visGroups(groupname = "A", color = "red") <!-- %>% -->
visGroups(groupname = "B", color = "lightblue") <!-- %>% -->
visLegend() <!-- %>% visExport(type = "jpeg", name = "export-network", -->
float = "left", label = "Save network", background = "purple", style= "")
# }
Run the code above in your browser using DataLab