diff options
| -rw-r--r-- | R/thetas-durations.R | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/R/thetas-durations.R b/R/thetas-durations.R index 068ad6db..3d740eeb 100644 --- a/R/thetas-durations.R +++ b/R/thetas-durations.R @@ -2,20 +2,15 @@ library(ggplot2) library(lubridate) library(doParallel) library(dplyr) -library(tidyr) -if(.Platform$OS.type == "unix"){ - root.dir <- "/home/share/CorpCDOs" +root.dir <- if(.Platform$OS.type == "unix"){ + "/home/share/CorpCDOs" }else{ - root.dir <- "//WDSENTINEL/share/CorpCDOs" + "//WDSENTINEL/share/CorpCDOs" } hostname <- system("hostname", intern=TRUE) -if(hostname=="debian"){ - registerDoParallel(4) -}else{ - registerDoParallel(8) -} +registerDoParallel(4 if hostname=="debian" else 8) source(file.path(root.dir, "code", "R", "serenitasdb.R")) source(file.path(root.dir, "code", "R", "cds_functions_generic.R")) |