# Create a node data frame
nodes <-
create_nodes(
nodes = LETTERS,
label = TRUE,
type = "letter")
# Create an edge data frame
edges <-
create_edges(
from = sample(LETTERS, replace = TRUE),
to = sample(LETTERS, replace = TRUE),
rel = "letter_to_letter")
# Create a graph
graph <-
create_graph(nodes_df = nodes,
edges_df = edges)
# Verify that node with ID `a` is not in graph
node_present(graph, "a")
#> FALSE
# Is node with ID `A` in the graph?
node_present(graph, "A")
#> TRUE
# Are all node ID values from the LETTERS vector
# in the graph?
all(sapply(LETTERS,
function(x) node_present(graph, x)))
#> TRUE
Run the code above in your browser using DataLab