Fix RScript input

workflow/apps/r/joinInteractExps.R

@@ -8,14 +8,14 @@ library(dplyr)
 args <- commandArgs(TRUE)
 
 # Set output dir
-if (length(args) > 1) {
+if (length(args) >= 1) {
   outDir <- args[1]
 } else {
   outDir <- "./" # for legacy workflow
 }
 
 # Set sd value
-if (length(args) > 2) {
+if (length(args) >= 2) {
   sd <- args[2]
 } else {
   sd <- 2 # default value
@@ -23,7 +23,7 @@ if (length(args) > 2) {
 print(paste("SD=",sd))
 
 # Set studyInfo file
-if (length(args) > 3) {
+if (length(args) >= 3) {
   studyInfo <- args[3]
 } else {
   studyInfo <- "../Code/StudyInfo.csv" # for legacy workflow