R/genus.R

genus <- function(x) {
  x <- gsub("'", "", x)   # remove quotes from 'Nostoc azollae' 0708
  x <- gsub("Candidatus ", "", x) ## remove Candidate species??? 
  y <- strsplit(x, "\\s+")
  sapply(y, '[', 1) 
}
cstubben/genomes2 documentation built on May 14, 2019, 12:25 p.m.