diff options
author | Mike Holmes <mike.holmes@linaro.org> | 2017-07-10 14:36:01 -0400 |
---|---|---|
committer | Mike Holmes <mike.holmes@linaro.org> | 2017-07-10 14:36:01 -0400 |
commit | 423c4f0593f782797c2498967c04f804deea7f5b (patch) | |
tree | 3d8e1734231573296d23fae058cc2bdf13d6c50d | |
parent | 83891cee5776a6b2bdb6faef7045f489560856d1 (diff) |
Deal with new home outputdirs
-rw-r--r-- | Signed_off_heatmaps.R | 4 | ||||
-rw-r--r-- | member_heatmaps.R | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index 269a97b..422225c 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -121,11 +121,13 @@ if (id[2] == '') { if (id[3] == '') { home <- getwd() - print(paste("Outputdir = ", home)) } else { home <- id[3] } +print(paste("Outputdir = ", home)) +dir.create(home) +setwd(home) user_password <- paste(id[1], id[2], sep=":") h <- new_handle(failonerror = TRUE) diff --git a/member_heatmaps.R b/member_heatmaps.R index 6b360f2..73f15d8 100644 --- a/member_heatmaps.R +++ b/member_heatmaps.R @@ -357,11 +357,12 @@ user_password <- paste(id[1], id[2], sep=":") if (id[3] == '') { home <- getwd() - print(paste("Outputdir = ", home)) } else { home <- id[3] } +print(paste("Outputdir = ", home)) +dir.create(home) setwd(home) dir.create("git") setwd("git") @@ -384,7 +385,6 @@ reports <- team = team_list, stringsAsFactors = FALSE) - apply(reports, 1, sponsor_heatmap) apply(reports, 1, sponsor_heatmap_current) apply(reports, 1, watcher_heatmap) |