R/nucleotides.R

In nishanmudalige/BOLD.R: A package to interface with the Barcode of Life Database through R

#' @export
nucleotides <- function(df){
  
  nucleotides.name <- names(df)[ which(endsWith(names(df), "_nucraw") ) ]
  
  if( identical(nucleotides.name, character(0) ) ){
    return("there are no nucleotides in this dataframe")
  } else{
    return(nucleotides.name) 
  }
}