R/workflow.get.expath.r

Defines functions get.expath

Documented in get.expath

### Get locations of example files.

get.expath <- function(file.name, path.root = "./ex_data/", pkg = "cubfits"){
  file.name <- paste(path.root, file.name, sep = "")
  file.path <- tools::file_path_as_absolute(
                 system.file(file.name, package = "cubfits"))
  file.path
} # get.expath()
snoweye/cubfits documentation built on Nov. 9, 2021, 3:39 a.m.