# NOT RUN {
# Read imgs, nodes and edges dataframes
imgs <- read.table(system.file("extdata", "imgs.csv", package = "iconr"),
sep=";", stringsAsFactors = FALSE)
nodes <- read.table(system.file("extdata", "nodes.csv", package = "iconr"),
sep=";", stringsAsFactors = FALSE)
edges <- read.table(system.file("extdata", "edges.csv", package = "iconr"),
sep=";", stringsAsFactors = FALSE)
# Create the list of graphs
lgrph <- list_dec(imgs, nodes, edges)
# Get the first graph
g <- lgrph[[1]]
g
# Graph name
g$name
# Graph label
g$lbl
# Graph number of nodes
igraph::gorder(g)
# Graph number of edges
igraph::gsize(g)
# }
Run the code above in your browser using DataLab