Rdev/get_rscript_name.R

In Novartis/xgxr: Exploratory Graphics for Pharmacometrics

#' Get the filename from within a script that has been executed.
#'
#' @param dirs, directory list for outputs to be appended to, default is empty list
#' @param regexp_prefix, regular expression for the beginning of the filename, for identifying the prefix.  default is for Task##_
#'
#' @return list
get_rscript_name = function(dirs          = list(), 
                            regexp_prefix = "^Task\\d\\d\\w?_") {
  ind = grep('.R',sys.calls())
  if (length(ind)==0) {  #function was likely called from R CMD BATCH, need a different way to get name  
    a = commandArgs()
    dirs$rscript_name = a[grep("\\.R$",a)]
  } else {
    ind = ind[length(ind)]
    dirs$rscript_name   = basename( as.character(sys.calls()[[ind]])[2] )
  }
  
  dirs$filename_prefix = str_extract(dirs$rscript_name,regexp_prefix)
  return(dirs)
}