From c917a5c35dc3ec135a16847ed754d494ca196de6 Mon Sep 17 00:00:00 2001
From: Jeremy Mathews <Jeremy.Mathews@utsouthwestern.edu>
Date: Wed, 22 May 2019 15:07:42 -0500
Subject: [PATCH] Remove blank page with onefile=FALSE
---
scripts/server.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/scripts/server.R b/scripts/server.R
index c62a923..993fd2e 100644
--- a/scripts/server.R
+++ b/scripts/server.R
@@ -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()
}
--
GitLab