Fix RScript input

2024-08-04 23:01:10 -04:00
parent 0715c2b150
commit 4059cc965f
7 changed files with 21 additions and 23 deletions
--- a/workflow/apps/r/createHeatMaps.R
+++ b/workflow/apps/r/createHeatMaps.R
@@ -8,13 +8,13 @@ library(gplots)
 args <- commandArgs(TRUE)

 # Set output dir
-if (length(args) > 1) {
+if (length(args) >= 1) {
  input_finalTable <- args[1]
 } else {
  input_finalTable <- "/REMcHeatmaps/REMcWithShift.csv" # for legacy workflow
 }

-if (length(args) > 2) {
+if (length(args) >= 2) {
  outDir <- args[2]
 } else {
  outDir <- "/REMcHeatmaps/REMcWithShift.csv" # for legacy workflow