diff options
| -rw-r--r-- | R/build_portfolios.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index cef04db6..9bb13955 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -4,9 +4,9 @@ library("yaml") args <- commandArgs(trailingOnly=TRUE) if(Sys.getenv("DATA_DIR") == ""){ - root.dir <- "/home/serenitas/CorpCDOs" + root.dir <- "/home/serenitas/CorpCDOs" }else{ - root.dir <- file.path(Sys.getenv("DATA_DIR"), "..") + root.dir <- file.path(Sys.getenv("DATA_DIR"), "..") } code.dir <- if(Sys.getenv("CODE_DIR")=="") file.path(root.dir, "code") else Sys.getenv("CODE_DIR") @@ -25,6 +25,7 @@ if(interactive()) { argslist <- strsplit(args[-1], ",") dealnames <- unlist(lapply(argslist, function(x)x[1])) reinvflags <- as.logical(unlist(lapply(argslist, function(x)x[2]))) + } workdate <- if(length(args) >=1) as.Date(args[1]) else Sys.Date() } |