R/build_data_path.R

In ThomUK/MSDSpipeline: Download, join, and tidy the public NHS Maternity Services Data

build_data_path <- function(destination){

  assertthat::assert_that(
    inherits(destination, "character"),
    msg = "build_data_path: destination argument must be a character vector."
  )

  R.utils::getAbsolutePath(destination)

}