R/workflow.get.expath.r

### 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()

Try the cubfits package in your browser

Any scripts or data that you put into this service are public.

cubfits documentation built on May 2, 2019, 4:08 a.m.