## This code is part of the megaptera package
## © C. Heibl 2015 (last update 2019-10-30)
#' @include taxonGuidetree-class.R
#' @importFrom methods new
#' @export
## USER LEVEL CONSTRUCTOR
## ----------------------
"taxonGuidetree" <- function(ingroup, extend.ingroup = FALSE,
outgroup, extend.outgroup = FALSE,
kingdom, exclude.hybrids = FALSE,
tip.rank = "species",
reference.rank = "auto",
guide.tree){
ingroup <- unique(ingroup); outgroup <- unique(outgroup)
if (is.factor(ingroup)) ingroup <- levels(ingroup)[ingroup]
if (is.factor(outgroup)) outgroup <- levels(outgroup)[outgroup]
if (is.character(ingroup)) ingroup <- as.list(ingroup)
if (is.character(outgroup)) outgroup <- as.list(outgroup)
tip.rank <- match.arg(tip.rank, c("genus", "species"))
new("taxonGuidetree",
ingroup = ingroup,
extend.ingroup = extend.ingroup,
outgroup = outgroup,
extend.outgroup = extend.outgroup,
kingdom = kingdom,
exclude.hybrids = exclude.hybrids,
tip.rank = tip.rank,
reference.rank = reference.rank,
guide.tree = guide.tree
)
}
# setMethod("show",
# signature(object = "taxon"),
# function (object)
# {
# cat("--- megaptera taxon class ---")
# i <- object@ingroup
# i <- paste(head(i, 2), collapse = ", ")
# if ( length(object@ingroup) > 2 ){
# i <- paste(i, ", ... [",
# length(object@ingroup), "]")
# }
# cat("\ningroup taxon :", i)
# o <- object@outgroup
# o <- paste(head(o, 2), collapse = ", ")
# if ( length(object@outgroup) > 2 ){
# o <- paste(o, ", ... [",
# length(object@outgroup), "]")
# }
# cat("\noutgroup taxon :", o)
# cat("\nin kingdom :", object@kingdom)
# cat("\nexclude.hybrids :",
# ifelse(object@exclude.hybrids, "included", "excluded"))
# }
# )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.