x <- sf::read_sf(system.file("extdata/new_hope.gpkg", package = "hydroloom"))
y <- dplyr::select(x, COMID)
y <- sf::st_transform(y, 5070)
z <- make_attribute_topology(y, 10)
x <- add_toids(hy(x), return_dendritic = FALSE)
x[x$id == x$id[1],]$toid
z[z$COMID == x$id[1],]$toid
Run the code above in your browser using DataLab