From 214d1540e119478a16a50cd771893cc361aa5c67 Mon Sep 17 00:00:00 2001
From: hollorol <hollorol@gmail.com>
Date: Sun, 14 May 2017 16:21:33 +0200
Subject: [PATCH] Adding outputname error handling-2

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

diff --git a/RBBGCMuso/R/setupMuso.R b/RBBGCMuso/R/setupMuso.R
index fd91a01..97aff0e 100644
--- a/RBBGCMuso/R/setupMuso.R
+++ b/RBBGCMuso/R/setupMuso.R
@@ -225,7 +225,7 @@ setupMuso <- function(executable=NULL,
      outputname <- unlist(strsplit(grep("output",grep("prefix",inifiles[[2]],value=TRUE),value=TRUE),"[\ \t]"))[1]
     ##THIS IS AN UGLY SOLUTION, WHICH NEEDS AN UPGRADE!!!
     ## outputname <- unlist(strsplit(grep("prefix for output files",inifiles[[2]],value=TRUE),"[\ \t]"))[1]
-    if(outputname==NULL){
+    if(is.null(outputname)){
         cat("I cannot find outputname, in your default ini file \n Please make sure that the line wich contains the name alse contains the prefix and the outmut keywords!")
         
 }