# NOT RUN {
# Create a node data frame (ndf)
ndf <-
create_node_df(
n = 4,
type = "letter",
color = c("red", "green",
"blue", "blue"),
value = c(3.5, 2.6, 9.4, 2.7))
# Create a graph
graph <- create_graph(nodes_df = ndf)
# Get a vector of all nodes in a graph
get_node_ids(graph)
#> [1] 1 2 3 4
# Get a vector of node ID values from a
# node data frame
get_node_ids(ndf)
#> [1] 1 2 3 4
# Get a vector of node ID values using a
# numeric comparison (i.e., all nodes with
# `value` attribute greater than 3)
get_node_ids(
graph,
conditions = value > 3)
#> [1] 1 3
# Get a vector of node ID values using
# a match pattern (i.e., all nodes with
# `color` attribute of `green`)
get_node_ids(
graph,
conditions = color == "green")
#> [1] 2
# Use multiple conditions to return nodes
# with the desired attribute values
get_node_ids(
graph,
conditions =
color == "blue" &
value > 5)
#> [1] 3
# }
Run the code above in your browser using DataLab