# NOT RUN {
# }
# NOT RUN {
nodes <- data.frame(id = 1:3, title = paste0("<p>", 1:3,"<br> tooltip</p>"))
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges) <!-- %>% -->
visConfigure(enabled = TRUE, filter = "interaction")
# using visNetworkEditor
custom_network <- visNetworkEditor(object = network)
custom_network
custom_network <- visNetworkEditor(object = network, filter = "nodes,edges")
custom_network
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab