From d52f358802a2e873819f8e30b14b3455d9a92ebb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@meteor22.elte.hu>
Date: Fri, 14 Sep 2018 15:22:41 +0200
Subject: [PATCH] fix the ggsave bug

---
 RBBGCMuso/R/plotMuso.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/plotMuso.R b/RBBGCMuso/R/plotMuso.R
index a12b64a..c77f641 100644
--- a/RBBGCMuso/R/plotMuso.R
+++ b/RBBGCMuso/R/plotMuso.R
@@ -126,9 +126,9 @@ plotMusoWithData <- function(csvFile, variable, NACHAR=NA, settings=NULL, sep=",
         labs(y = paste0(variable,"_measured"))+
         theme(axis.title.x = element_blank())
     if(!is.null(savePlot)){
+        ggsave(savePlot,p)
         return(p)
     } else {
-        ggsave(savePlot,p)
         return(p)
     }