utility function to return bootstrap/data folder

Something like the following would be useful to use in bootstrap scripts and taf scripts. Because these are run in different working directories and the user should work in the root directory, this function will make the development of bootstrap scripts easier on the user.

taf.data.path <- function(..., fsep = .Platform$file.sep) {
  if (basename(dirname(dirname(getwd()))) == "bootstrap") {
    args <- list("..")
  } else {
    args <- list("bootstrap", "data")
  }
  do.call(file.path, c(args, ..., fsep = fsep))
}

usage example:

my_data <- read.taf(taf.data.path("my_script_folder", "my_data.csv"))

ices-tools-prod / icesTAF

utility function to return bootstrap/data folder #21