diff options
Diffstat (limited to 'member_heatmaps.R')
| -rw-r--r-- | member_heatmaps.R | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/member_heatmaps.R b/member_heatmaps.R index 7138c22..c83ddff 100644 --- a/member_heatmaps.R +++ b/member_heatmaps.R @@ -20,9 +20,9 @@ companies <- function (names) return (company) } -display_hetmap <- function(report, m, suffix) { -# report_name <- paste(report["name"], suffix, ".pdf",sep = "") -# pdf(file=report_name, title = report["name"],paper="us") +display_heatmap <- function(report, m, suffix) { + report_name <- paste(report["name"], suffix, ".png",sep = "") + png(file=report_name, title = report["name"]) #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) { @@ -127,7 +127,7 @@ watcher_heatmap <- function(report) { m <- as.matrix(m[!grepl(d, rownames(m)),]) } - display_hetmap(report, m,"_wt") + display_heatmap(report, m,"_wt") } @@ -199,7 +199,8 @@ sponsor_heatmap <- function (report) { m <- as.matrix(m[!grepl(d, rownames(m)),]) } - display_hetmap(report, m, "_sp") + display_heatmap(report, m, "_sp") + } #from the website get the initiatives list for the four teams @@ -234,14 +235,9 @@ reports <- 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, sponsor_heatmap) apply(reports, 1, watcher_heatmap) -dev.off() + |