Full Blank Page Fix Post Testing

e559b561 · Jeremy Mathews · c917a5c3 · e559b561
Commit e559b561 authored May 22, 2019 by Jeremy Mathews
--- 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()
      }