From 97ccd0710e5f33dce874d954312b84d1b4ce3f85 Mon Sep 17 00:00:00 2001 From: Mike Holmes Date: Mon, 10 Jul 2017 14:28:39 -0400 Subject: Use a subdir for the git information --- member_heatmaps.R | 14 ++++++++++++-- 1 file 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) -- cgit v1.2.3