R/getFilenamesFromDBnames.R

In mariodejung/samplesubmission: Sample Submission User Web Interface

#' extracts databases file paths on the basis of selected databases in the form
#' @param db_names names of fasta databases
#' @return file paths corresponding to the databases names
#' @importFrom stats na.omit
#' @examples
#' \dontrun{
#' getFilenamesFromDBnames("Human")
#' }
getFilenamesFromDBnames <- function(db_names) {
  available_dbs <- get("available_dbs")
  file_paths <- c()
  if(exists("available_dbs")) {
    db_indecies <- na.omit(unique(match(db_names, available_dbs$species_names)))
    file_paths <- available_dbs$absolute_path[db_indecies]
   
  }
  return(file_paths)
}