Skip to content
Snippets Groups Projects
Commit 011041a5 authored by Gervaise Henry's avatar Gervaise Henry :cowboy:
Browse files

Merge branch '1-BlankPage' into 'develop' 

Resolve "blank page on survival plot download"

Closes #1

See merge request !14
parents 3710a5e1 e559b561
2 merge requests!16Develop,!14Resolve "blank page on survival plot download"
Pipeline #3956 passed with stages
in 1 minute and 19 seconds
Hide whitespace changes
Inline Side-by-side
scripts/server.R
+ 1
− 1
View file @ 011041a5
...@@ -506,7 +506,7 @@ shinyServer( ...@@ -506,7 +506,7 @@ shinyServer(
filename = function() { paste0("plot", '.pdf') }, filename = function() { paste0("plot", '.pdf') },
content = function(file) { content = function(file) {
#ggsave(file = file, plot = plotInput(), device = "pdf") #ggsave(file = file, plot = plotInput(), device = "pdf")
pdf(file) pdf(file, onefile=FALSE)
plotInput() plotInput()
dev.off() dev.off()
} }
......
vizapp/server.R
+ 1
− 1
View file @ 011041a5
...@@ -506,7 +506,7 @@ shinyServer( ...@@ -506,7 +506,7 @@ shinyServer(
filename = function() { paste0("plot", '.pdf') }, filename = function() { paste0("plot", '.pdf') },
content = function(file) { content = function(file) {
#ggsave(file = file, plot = plotInput(), device = "pdf") #ggsave(file = file, plot = plotInput(), device = "pdf")
pdf(file) pdf(file, onefile=FALSE)
plotInput() plotInput()
dev.off() dev.off()
} }
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment