R/script.R

In richfitz/remake: Make-like build management

remake_script <- function(obj, target_name=NULL) {
  target_name <- remake_default_target(obj, target_name)
  pkgs <- lapply(obj$store$packages,
                 function(x) sprintf('library("%s")', x))
  srcs <- lapply(obj$store$env$find_files(),
                 function(x) sprintf('source("%s")', x))
  ## Probably best to filter by "real" here?
  plan <- remake_plan(obj, target_name)
  cmds <- lapply(plan, function(i)
    target_run_fake(obj$targets[[i]], for_script=TRUE))

  ## Need to make missing paths.
  files <- filter_targets(obj$targets, "file", include_implicit_files=TRUE)
  paths <- dirname(files)
  ## Implicit targets exist...
  implicit <- vlapply(obj$targets[files], inherits, "target_file_implicit")
  ## ...so these paths must already exist...
  paths_existing <- unique(c(".", paths[implicit]))
  ## ...and these need creating:
  paths_to_create <- setdiff(unique(paths[!implicit]), paths_existing)
  cmds <- c(sprintf('dir.create("%s", FALSE, TRUE)', paths_to_create),
            cmds)
  
  c(unlist(pkgs),
    unlist(srcs),
    unlist(cmds))
}