diff options
| -rw-r--r-- | Signed_off_heatmaps.R | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index b549cce..269a97b 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -108,7 +108,7 @@ get_projects <- function (df){ colours <- c("lightblue", "mistyrose", "lightcyan","lavender", "cornsilk") #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'") @@ -119,10 +119,14 @@ if (id[2] == '') { stop() } -home <- getwd() -print(paste("Outputdir = ", home)) -user_password <- paste(id[1], id[2], sep=":") +if (id[3] == '') { + home <- getwd() + print(paste("Outputdir = ", home)) +} else { + home <- id[3] +} +user_password <- paste(id[1], id[2], sep=":") h <- new_handle(failonerror = TRUE) handle_setopt(h, verbose = 0) |