diff --git a/scripts/server.R b/scripts/server.R index c62a923625f164f937501f09705059eff23239a0..deb49bcc4bbf2dc22e0f25b4cc14a1137cc9dd96 100644 --- a/scripts/server.R +++ b/scripts/server.R @@ -103,7 +103,7 @@ 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))) incProgress(1/n, detail = paste0("printing plot!")) @@ -506,7 +506,7 @@ shinyServer( filename = function() { paste0("plot", '.pdf') }, content = function(file) { #ggsave(file = file, plot = plotInput(), device = "pdf") - pdf(file) + pdf(file, onefile=FALSE) plotInput() dev.off() } diff --git a/vizapp/server.R b/vizapp/server.R index 41d7d7b503d0335209c2479a62ee2bfbbf0e029f..f2f1b16fff57a70989e5c409c515a9b763a89ec6 100644 --- a/vizapp/server.R +++ b/vizapp/server.R @@ -103,7 +103,7 @@ 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))) incProgress(1/n, detail = paste0("printing plot!")) @@ -506,7 +506,7 @@ shinyServer( filename = function() { paste0("plot", '.pdf') }, content = function(file) { #ggsave(file = file, plot = plotInput(), device = "pdf") - pdf(file) + pdf(file, onefile=FALSE) plotInput() dev.off() }