From e559b5614c89c567df5c7fb6a30ea0f5fb00cc3d Mon Sep 17 00:00:00 2001
From: Jeremy Mathews <Jeremy.Mathews@utsouthwestern.edu>
Date: Wed, 22 May 2019 16:31:04 -0500
Subject: [PATCH] Full Blank Page Fix Post Testing
---
vizapp/server.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/vizapp/server.R b/vizapp/server.R
index 41d7d7b..541a587 100644
--- a/vizapp/server.R
+++ b/vizapp/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