Nothing
#' Leaf nodes of a forest
#'
#' @param data A forest.
#'
#' @return A forest.
#'
#' @export
leaves <- function(data) {
roots <- data$roots
nodes <- data$nodes
node_parents <- nodes$.$parent
node_parents <- vec_slice(node_parents, !vec_detect_missing(node_parents))
node_locs <- vec_as_location(-node_parents, vec_size(nodes))
data_root <- data
data_root$nodes <- data_root$nodes["."]
root_locs <- roots$.
data_root$nodes$root <- NA_integer_
vec_slice(data_root$nodes$root, root_locs) <- root_locs
data_root <- traverse(data_root,
function(x, y) {
x$root <- y$root
x
},
.climb = TRUE)
needles <- vec_slice(data_root$nodes$root, node_locs)
new_roots <- vec_slice(roots,
vec_match(needles, roots$.))
new_roots$. <- vec_seq_along(new_roots)
new_nodes <- vec_slice(nodes, node_locs)
new_nodes$.$parent <- NA_integer_
forest(new_roots, new_nodes)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.