Test whether a domain is a leaf — is_leaf_domain • hydroloom

A domain is a leaf when no upstream domain feeds into it — its inlet_nexus_ids slot is empty.

Usage

is_leaf_domain(decomposition, domain_id)

Arguments

decomposition: object of class domain_decomposition.
domain_id: character(1). Domain id to test.

Value

logical(1).

See also

is_stem_domain(), is_root_domain(), hy_domain().

Examples

g <- sf::read_sf(system.file("extdata/walker.gpkg", package = "hydroloom"))

h <- hy(g) |>
  add_toids() |>
  add_levelpaths(name_attribute = "GNIS_ID",
    weight_attribute = "arbolate_sum")

d <- decompose_network(h)

is_leaf_domain(d, names(d$domains)[[1]])
#> [1] TRUE