R/findSpecies.R

In fischuu/hoardeR: Collect and Retrieve Annotation Data for Various Genomic Data Using Different Webservices

findSpecies <- function(string){
# First find all the cells that contain the string
  cellsOI <- apply(species, 2, function(x) grepl(string, x, ignore.case=TRUE))
# Now determine all the rows that of interest
  rowsOI <- apply(cellsOI,1,sum)
# Display the rows of interest
  species[rowsOI>0,]
}