if (interactive()) {
net <- sfnetworks::as_sfnetwork(
sfnetworks::roxel
)
dplyr::mutate(
net,
nb = node_get_nbs(),
edges = node_get_edge_list(),
types = node_get_edge_col(edges, "type")
)
}
Run the code above in your browser using DataLab