diff options
| author | Mike Holmes <mike.holmes@linaro.org> | 2017-05-16 07:15:53 -0400 |
|---|---|---|
| committer | Mike Holmes <mike.holmes@linaro.org> | 2017-05-16 07:15:53 -0400 |
| commit | f0e1913ed8a1d948c89cbb656852b117d20d07bf (patch) | |
| tree | 3802d19742b2b650229b4751e9c28f2e13100312 | |
| parent | ef6d200dc139980dc368415ca12167e2bc0610f8 (diff) | |
report by type
Signed-off-by: Mike Holmes <mike.holmes@linaro.org>
| -rw-r--r-- | member_heatmaps.R | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/member_heatmaps.R b/member_heatmaps.R index e2f2fe0..7138c22 100644 --- a/member_heatmaps.R +++ b/member_heatmaps.R @@ -21,8 +21,8 @@ companies <- function (names) } display_hetmap <- function(report, m, suffix) { - report_name <- paste(report["name"], suffix, ".pdf",sep = "") - pdf(file=report_name, title = report["name"],paper="us") +# report_name <- paste(report["name"], suffix, ".pdf",sep = "") +# pdf(file=report_name, title = report["name"],paper="us") #display raw data print(m) @@ -50,7 +50,7 @@ display_hetmap <- function(report, m, suffix) { ylab = "company", xlab = "project" ) - dev.off() +# dev.off() } watcher_heatmap <- function(report) { @@ -233,7 +233,15 @@ reports <- data.frame(name = report_name , team = team_list, stringsAsFactors = FALSE) + +report_name <- paste("sponsor_heatmap", ".pdf",sep = "") +pdf(file=report_name, title = "sponsor_heatmap") apply(reports, 1, sponsor_heatmap) +dev.off() + +report_name <- paste("watcher_heatmaps", ".pdf",sep = "") +pdf(file=report_name, title = "sponsor_heatmap") apply(reports, 1, watcher_heatmap) +dev.off() |