From 3188c8d2d47eed99574c4a501ea48f426247a4d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@meteor22.elte.hu>
Date: Mon, 11 Feb 2019 14:47:42 +0100
Subject: [PATCH] Adding new functionality to BBGCDB

---
 RBBGCMuso/R/setupMuso.R | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/RBBGCMuso/R/setupMuso.R b/RBBGCMuso/R/setupMuso.R
index 40a1b55..42882df 100644
--- a/RBBGCMuso/R/setupMuso.R
+++ b/RBBGCMuso/R/setupMuso.R
@@ -55,7 +55,8 @@ setupMuso <- function(executable=NULL,
                       epcInput=NULL,
                       mapData=NULL,
                       leapYear=FALSE,
-                      version=5
+                      version=5,
+                      doCopy=TRUE
                       ){
 
     Linuxp <-(Sys.info()[1]=="Linux")
@@ -188,8 +189,11 @@ setupMuso <- function(executable=NULL,
         } else {
             executable<-file.path(inputLoc,"muso.exe")
         }
-    } else {        
-        file.copy(executable,inputLoc)
+    } else {
+        if(doCopy){
+            file.copy(executable,inputLoc)            
+        }
+
     }
     outputName <- character(2)
     outputName[1] <- basename(unlist(strsplit(iniFiles[[1]][grep("OUTPUT_CONTROL",iniFiles[[1]])+1],"[\ \t]"))[1])