##' @method groupOTU ggtree
##' @export
##' @importFrom tidytree groupOTU
groupOTU.ggtree <- function(.data, .node, group_name = "group", ...) {
.data$data <- groupOTU(.data$data, .node, group_name, ...)
return(.data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.