R/main.R

In vimc/dettl: Data Extract, Transform, Test and Load

main_parse_args <- function(args = commandArgs(TRUE)) {
  usage <- "Usage:
  dettl [options] <path>

Options:
  --db-name=NAME     Name of the database to use
  --comment=COMMENT  Comment to add with the import
  --dry-run          Do the dry run only
  --allow-dirty-git  Allow dirty git
  --root=PATH        Path to dettl root"

  res <- docopt_parse(usage, args)
  list(root = res[["root"]],
       args = list(import = res[["path"]],
                   db_name = res[["db_name"]],
                   comment = res[["comment"]],
                   dry_run = res[["dry_run"]],
                   allow_dirty_git = res[["allow_dirty_git"]]))
}


main <- function(args = commandArgs(TRUE)) {
  dat <- main_parse_args(args)
  if (!is.null(dat$root)) {
    owd <- setwd(dat$root)
    on.exit(setwd(owd))
  }
  dat$args$stage <- c("extract", "transform", "load")
  do.call(dettl_run, dat$args)
}

docopt_parse <- function(usage, args) {
  dat <- docopt::docopt(usage, args)
  names(dat) <- gsub("-", "_", names(dat), fixed = TRUE)
  dat
}