R/taxnamesplit.R

In IgAScores: Score Taxon-Level IgA Binding in IgA-Seq Experiments

#' Extract name at a given taxonomic level from a full name in the "p__;c__;o__;f__;g__;s__" format
#'
#' @description
#'
#' This function splits a full taxonomic lineage as a given level and returns the latter half.
#'
#' @param names Name string/ vector of name strings
#' @param level taxonomic level to split at must be in range phylum to species (default is genus).
#' @return A string (or vector of strings if input is a vector) containing the second part of the input string split at the given taxonomic level.
#' @keywords microbiome taxonomy name split
#' @export
#' @examples
#' taxnamesplit("p__Bacteroidetes;c__Bacteroidia","class")


taxnamesplit <- function(names,level="genus"){
  delim <- paste0(substr(level,1,1),"__")
  spl <- strsplit(names,delim)
  nm <- unlist(lapply(spl,"[[",2))
  return(nm)
}