R/get_shortnames.R

Defines functions get_shortnames

Documented in get_shortnames

#' get_shortnames
#' return the shortnames of taxonomy labels
#'
#' @param longnames vector; vector of long taxonomic labels
#' @export
#' @return vector
#' @examples
#' longnames <- c("k__Bacteria;p__Firmicutes;c__Clostridia;o__Clostridiales;f__Ruminococcaceae;g__Ruminococcus",
#'                "k__Bacteria;p__Bacteroidetes;c__Bacteroidia;o__Bacteroidales;f__Bacteroidaceae;g__Bacteroides")
#' get_shortnames(longnames)

get_shortnames <- function(longnames){
  return(trimws(longnames, whitespace = ".*__"))
}
OxfordCMS/OCMS_Utility documentation built on July 16, 2025, 9:06 p.m.