fix pdf() parameter for KM plot (#327)

openbiox · Apr 19, 2024 · bf3ca4c · bf3ca4c
1 parent dccd940
commit bf3ca4c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/inst/shinyapp/modules/02_quick/modules-1-tcga-09-KM.R b/inst/shinyapp/modules/02_quick/modules-1-tcga-09-KM.R
@@ -234,7 +234,7 @@ server.modules_1_tcga_09 = function(input, output, session){
         content = function(file) {
             p <- plot_func()
             if (input$device == "pdf") {
-                pdf(file, width = input$width, height = input$height)
+                pdf(file, width = input$width, height = input$height, onefile = FALSE)
                 print(p)
                 dev.off()
             } else {

diff --git a/inst/shinyapp/modules/02_quick/modules-2-pcawg-03-KM.R b/inst/shinyapp/modules/02_quick/modules-2-pcawg-03-KM.R
@@ -238,7 +238,7 @@ server.modules_2_pcawg_03 = function(input, output, session){
         content = function(file) {
             p <- plot_func()
             if (input$device == "pdf") {
-                pdf(file, width = input$width, height = input$height)
+                pdf(file, width = input$width, height = input$height, onefile = FALSE)
                 print(p)
                 dev.off()
             } else {

diff --git a/inst/shinyapp/modules/06_tpc_func/modules-z-download-res.R b/inst/shinyapp/modules/06_tpc_func/modules-z-download-res.R
@@ -54,7 +54,7 @@ download_res_Server = function(input, output, session,
 			# p = cor_plot_bar()
             p = res1
 		    if (input$save_plot_F == "PDF") {
-		      pdf(file, width = input$save_plot_W, height = input$save_plot_H)
+		      pdf(file, width = input$save_plot_W, height = input$save_plot_H, onefile = FALSE)
 		      print(p)
 		      dev.off()
 		    } else if (input$save_plot_F == "PNG"){