diff options
| author | Mike Holmes <mike.holmes@linaro.org> | 2017-07-10 14:28:39 -0400 |
|---|---|---|
| committer | Mike Holmes <mike.holmes@linaro.org> | 2017-07-10 14:28:39 -0400 |
| commit | 97ccd0710e5f33dce874d954312b84d1b4ce3f85 (patch) | |
| tree | 2064a0b4e88bdc2e0ea235a412f4d2dce3712547 | |
| parent | 82b2c5c818fbe44845087d5c0cf58bd0c0a1fecc (diff) | |
Use a subdir for the git information
| -rw-r--r-- | member_heatmaps.R | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/member_heatmaps.R b/member_heatmaps.R index 2599f05..6b360f2 100644 --- a/member_heatmaps.R +++ b/member_heatmaps.R @@ -342,7 +342,7 @@ sponsor_heatmap_current <- function (report) { } #from the website get the initiatives list for the four teams -id <- Sys.getenv(c("JIRA_USERNAME", "JIRA_PASSWORD")) +id <- Sys.getenv(c("JIRA_USERNAME", "JIRA_PASSWORD","JIRA_OUTPUT")) if (id[1] == '') { print ("export JIRA_USERNAME='john.doe@linaro.org'") @@ -355,6 +355,16 @@ if (id[2] == '') { user_password <- paste(id[1], id[2], sep=":") +if (id[3] == '') { + home <- getwd() + print(paste("Outputdir = ", home)) +} else { + home <- id[3] +} + +setwd(home) +dir.create("git") +setwd("git") h <- new_handle(failonerror = TRUE) handle_setopt(h, verbose = 0) @@ -379,5 +389,5 @@ apply(reports, 1, sponsor_heatmap) apply(reports, 1, sponsor_heatmap_current) apply(reports, 1, watcher_heatmap) - +setwd(home) |