This function allows to delete nodes (levels) from an existing nested hierarchy.
hier_delete(tree, nodes)
a (nested) hierarchy created using hier_create()
or modified using hier_add()
, hier_delete()
or hier_rename()
.
character vector of nodes that should be deleted
h <- hier_create(root = "Total", nodes = LETTERS[1:2])
h <- hier_add(h, root = "A", nodes = c("a1", "a2"))
h <- hier_add(h, root = "B", nodes = c("b1", "b2"))
h <- hier_add(h, root = "b1", nodes = "b1a")
hier_display(h)
#> Total
#> ├─A
#> │ ├─a1
#> │ └─a2
#> └─B
#> ├─b1
#> │ └─b1a
#> └─b2
h <- hier_delete(h, nodes = c("a1", "b1a"))
hier_display(h)
#> Total
#> ├─A
#> │ └─a2
#> └─B
#> ├─b1
#> └─b2