Alter output name if just plate distribution

crukci-bioinformatics · Dec 11, 2018 · e52c411 · e52c411
1 parent 8f80ef8
commit e52c411
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/MultiPlateLayoutBlockRandomised.R b/R/MultiPlateLayoutBlockRandomised.R
@@ -61,7 +61,12 @@ plateOnly <- opts$plateOnly
 
 # set options that that have not beem provided
 if(outputFile == "<undefined>") { 
-    outputFile <- gsub("[[:alnum:]]*$", "PlateLayout", basename(designFile)) 
+    if(plateOnly){
+        outputFile <- gsub("[[:alnum:]]*$", "PlateDistribution", 
+                           basename(designFile)) 
+    }else{
+        outputFile <- gsub("[[:alnum:]]*$", "PlateLayout", basename(designFile)) 
+    }
 }
 
 # split BatchColumns