R/get_raket_path.R

In richelbilderbeek/raket: What If Speciation Takes Time?

#' Get the full path of a file in the \code{inst/extdata} folder
#' @inheritParams default_params_doc
#' @return the full path of the filename, if and only if
#'   the file is present. Will stop otherwise.
#' @author Richel J.C. Bilderbeek
#' @examples
#' library(testthat)
#'
#' expect_silent(get_raket_path("parameters.RDa"))
#' expect_error(get_raket_path("abs.ent"))
#' @export
get_raket_path <- function(filename) {
  full <- system.file("extdata", filename, package = "raket")
  if (!file.exists(full)) {
    stop("'filename' must be the name of a file in 'inst/extdata'")
  }
  full
}