# Create an empty graph; by default,
# new graphs made by `create_graph()`
# are directed
graph <- create_graph()
# Determine whether the graph
# is directed
graph %>% is_graph_directed()
# Use the `set_graph_undirected()`
# function and check again whether
# the graph is directed
graph %>%
set_graph_undirected() %>%
is_graph_directed()
Run the code above in your browser using DataLab