Build the `gripui` Shiny application
Examples
graph <- list(adj_list = list(2L, c(1L, 3L), 2L))
layouts <- data.frame(
candidate = "toy.layout",
stage = "layout",
seed = 1L,
status = "ok",
stringsAsFactors = FALSE
)
project <- gripui_project(graph = graph, layouts = layouts, title = "Toy project")
app <- gripui_app(project)
inherits(app, "shiny.appobj")
#> [1] TRUE