Merge remote-tracking branch 'milQuant/main'

lsteinmann · Oct 30, 2023 · 8962f0d · 8962f0d
2 parents 77f0692 + 2508aee
commit 8962f0d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/shiny/source/modules/downloadModule.R b/shiny/source/modules/downloadModule.R
@@ -14,7 +14,7 @@ downloadPlotHandler <- function(input, output, session, dlPlot) {
     filename = paste(format(Sys.Date(), "%Y%m%d"),
                      "_milQuant_plot.png", sep = ""),
     content <- function(file) {
-      ggsave(file, plot = dlPlot(),
+      ggsave(file, plot = dlPlot() + Plot_Base_Theme + Plot_Base_Guide,
              device = "png",
              width = 25, height = 15, units = "cm")
     }
@@ -24,7 +24,7 @@ downloadPlotHandler <- function(input, output, session, dlPlot) {
     filename = paste(format(Sys.Date(), "%Y%m%d"),
                      "_milQuant_plot.pdf", sep = ""),
     content <- function(file) {
-      ggsave(file, plot = dlPlot(),
+      ggsave(file, plot = dlPlot() + Plot_Base_Theme + Plot_Base_Guide,
              device = "pdf",
              width = 25, height = 15, units = "cm")
     }