graph <- list(adj_list = list(2L, c(1L, 3L), c(2L, 4L), 3L))
layouts <- data.frame(
candidate = "path.default",
stage = "layout",
seed = 1L,
status = "ok",
stringsAsFactors = FALSE
)
project <- gripui_project(graph = graph, layouts = layouts, title = "Path graph")
project$meta$title
Run the code above in your browser using DataLab