diff options
| author | Mike Holmes <mike.holmes@linaro.org> | 2017-06-07 11:08:26 -0400 |
|---|---|---|
| committer | Mike Holmes <mike.holmes@linaro.org> | 2017-06-07 11:08:26 -0400 |
| commit | 933e11813a6eb8e9cb7b55b6e4f25996636b24ef (patch) | |
| tree | d5e94f94c3001e8e8842a49625a777a69fe3ad56 | |
| parent | 1965a3534e3bf38c7c52f03997c63c3386682393 (diff) | |
add dates to output
Signed-off-by: Mike Holmes <mike.holmes@linaro.org>
| -rw-r--r-- | Signed_off_heatmaps.R | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Signed_off_heatmaps.R b/Signed_off_heatmaps.R index 829fbf1..75d0e01 100644 --- a/Signed_off_heatmaps.R +++ b/Signed_off_heatmaps.R @@ -129,7 +129,7 @@ df$reported<- df$reported/ df$team_size #cut out what we want to plot m <- as.matrix(df[,c("signed","acked","reviewed")]) -png(file="Linaro_team_vs_git_signoff.png", title = "team vs. git stats") +png(file=paste(Sys.Date(),"Linaro_team_vs_git_signoff.png", sep = "_"), title = paste(Sys.Date(),"team vs maintainer",sep = " ")) op <- par(mar=c(15,4,4,2)) colours <- c("lightblue", "mistyrose", "lightcyan","lavender", "cornsilk") inverse.m <- t(m) @@ -146,7 +146,7 @@ dev.off() #cut out what we want to plot m <- as.matrix(df[,c("tested", "reported")]) -png(file="Linaro_team_vs_git_tested.png", title = "team vs. git stats") +png(file=paste(Sys.Date(),"Linaro_team_vs_git_tested.png", sep = "_"), title = paste(Sys.Date(),"team vs. git stats",sep = " ")) op <- par(mar=c(15,4,4,2)) colours <- c("lightblue", "mistyrose", "lightcyan","lavender", "cornsilk") inverse.m <- t(m) @@ -160,7 +160,7 @@ barplot(inverse.m, las=2, ) dev.off() -pdf(file="Linaro_team_vs_git.pdf", title = "team vs. git stats") +pdf(file=paste(Sys.Date(),"Linaro_team_vs_git.pdf", sep = "_"), title = paste(Sys.Date(),"team vs. git stats",sep = " ")) op <- par(mar=c(15,4,4,2)) colours <- c("lightblue", "mistyrose", "lightcyan","lavender", "cornsilk") barplot(df$signed, main="signed off", las=2, ylab = "number of patches", @@ -176,7 +176,7 @@ barplot(df$reported, las=2, main="reported", ylab = "number of patches", dev.off() -pdf(file="Linaro_team_members_contributions.pdf", title = "team vs. git stats") +pdf(file=paste(Sys.Date(),"Linaro_team_members_contributions.pdf", sep = "_"), title = paste(Sys.Date(),"team member contributions",sep = " ")) op <- par(mfrow=c(1, 1), mar =c(15,4,4,10)) for (team in row.names(df)) { @@ -220,7 +220,7 @@ for (team in row.names(df)) { dev.off() -pdf(file="Linaro_team_members_contributions_heatmap.pdf", paper='USr') +pdf(file=paste(Sys.Date(),"Linaro_team_members_contributions_heatmap.pdf", sep = "_"), title = paste(Sys.Date(),"team member contributions heatmap",sep = " "), paper='USr') op <- par(mfrow=c(1, 1), mar =c(15,4,4,10)) all_people <- matrix(nrow=length(unique.persons), ncol=length(unique.tags)) |