R/get_babette_paths.R

In richelbilderbeek/babette: Control 'BEAST2'

#' Get the full paths of files in the \code{inst/extdata} folder
#' @param filenames the files' names, without the path
#' @return the filenames' full paths, if and only if
#'   all files are present. Will stop otherwise.
#' @author Richèl J.C. Bilderbeek
#' @seealso for one file, use \code{\link{get_babette_path}}
#' @examples
#' beastier::remove_beaustier_folders()
#' beastier::check_empty_beaustier_folders()
#'
#' get_babette_paths(c("anthus_aco.fas", "anthus_nd2.fas"))
#'
#' beastier::remove_beaustier_folders()
#' beastier::check_empty_beaustier_folders()
#' @export
get_babette_paths <- function(filenames) {

  for (i in seq_along(filenames)) {
    filenames[i] <- babette::get_babette_path(filenames[i])
  }

  filenames
}