if (FALSE) {
# Import a GML graph file available
# in the DiagrammeR package
karate_club <-
system.file(
"extdata", "karate.gml",
package = "DiagrammeR") %>%
import_graph() %>%
set_graph_name("karate")
# Display a data frame with
# graph information
karate_club %>%
get_graph_info()
}
Run the code above in your browser using DataLab