diff --git a/CHANGELOG.md b/CHANGELOG.md index 441c809280e696def81143e376fb7906be494eb8..0332278e5cfd11f9adaa4f1838ac4d02f8e138db 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,6 +1,14 @@ -# v1.0.2 +# v1.0.3 **User Facing** -* Remove unnecessary legend on boxplot pdf output +* Remove unnecessary legend on boxplot + +**Background** + +*Known Bugs* + +# v1.0.2 (**MASKED**) +**User Facing** +* Attempt to remove unnecessary legend on boxplot **Background** @@ -9,7 +17,7 @@ # v1.0.1 (**MASKED**) **User Facing** * Remove blank page in output to pdf -* Remove unnecessary legend on boxplot +* Attempt to remove unnecessary legend on boxplot **Background** diff --git a/scripts/server.R b/scripts/server.R index c898ede5998b992358408545921316d3b92fc8df..a906122bc7b3cc1e0f2eeaa09e7bdd691d03cdc0 100644 --- a/scripts/server.R +++ b/scripts/server.R @@ -330,9 +330,9 @@ shinyServer( p <- ggplot(data = data, aes(x=type, y=value)) + geom_boxplot(aes(fill=type),outlier.size = 0.2,outlier.alpha=0.8) + scale_y_continuous(limits = c(0, 2000)) + geom_text(data=data.frame(x=1.5,y=1800,labels=pval,cancer=unique(data$cancer)),aes(x,y,label=labels),size=3 , inherit.aes=FALSE) + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), - panel.background = element_blank(), axis.line = element_line(colour = "black")) + panel.background = element_blank(), axis.line = element_line(colour = "black"), legend.position = "none") #cat("printing",gene,"\n") - print(p + facet_wrap( ~ cancer, scales="free") + ggtitle(gene) + theme(plot.title = element_text(hjust = 0.5))) + print(p + facet_wrap( ~ cancer, scales="free") + ggtitle(gene) + theme(plot.title = element_text(hjust = 0.5), legend.position = "none")) #incProgress(1/n, detail = paste0("printing plot!")) } } diff --git a/vizapp/server.R b/vizapp/server.R index 68ef97316e546eb763aed43925e3ef3fa115710b..e08779b8801a956eb7f5593526040150945c4a3d 100644 --- a/vizapp/server.R +++ b/vizapp/server.R @@ -330,9 +330,10 @@ shinyServer( p <- ggplot(data = data, aes(x=type, y=value)) + geom_boxplot(aes(fill=type),outlier.size = 0.2,outlier.alpha=0.8) + scale_y_continuous(limits = c(0, 2000)) + geom_text(data=data.frame(x=1.5,y=1800,labels=pval,cancer=unique(data$cancer)),aes(x,y,label=labels),size=3 , inherit.aes=FALSE) + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), - panel.background = element_blank(), axis.line = element_line(colour = "black")) + panel.background = element_blank(), axis.line = element_line(colour = "black"), legend.position = "none") #cat("printing",gene,"\n") - print(p + facet_wrap( ~ cancer, scales="free") + ggtitle(gene) + theme(plot.title = element_text(hjust = 0.5))) + p <- p + facet_wrap( ~ cancer, scales="free") + ggtitle(gene) + theme(plot.title = element_text(hjust = 0.5)) + print(p) #incProgress(1/n, detail = paste0("printing plot!")) } } @@ -507,11 +508,10 @@ shinyServer( content = function(file) { #ggsave(file = file, plot = plotInput(), device = "pdf") pdf(file, onefile=FALSE) - plotInput() + print(plotInput() + theme(legend.position = "none")) dev.off() } ) - } )