#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.