R/name_fastas.R

In adsteen/genomechop:

##' Get all fasta files in a library.
##'
##' @description This is kind of dumb.
##'
##' @param extension file extensions.

name_fastas <- function(my.path = ".", extension=c("fna")) {
  #browser()
  all_fasta_filenames <- paste0(my.path,
                                 list.files(path = my.path,
                                            pattern=paste0(extension, "$")))
  all_fasta_filenames
}