Fix RScript input

workflow/apps/r/addShiftVals.R

@@ -9,25 +9,25 @@ library(sos)
 
 args=commandArgs(TRUE)
 
-if (length(args) > 1) {
+if (length(args) >= 1) {
   finalTable <- args[1]
 } else {
   finalTable <- "REMcRdy_lm_only.csv-finalTable.csv"  # for legacy workflow
 }
 
-if (length(args) > 2) {
+if (length(args) >= 2) {
   shiftFile <- args[2]
 } else {
   shiftFile <- "Shift_only.csv"  # for legacy workflow
 }
 
-if (length(args) > 3) {
+if (length(args) >= 3) {
   studyInfo <- args[3]
 } else {
   studyInfo <- "../Code/StudyInfo.csv" # for legacy workflow
 }
 
-if (length(args) > 4) {
+if (length(args) >= 4) {
   output <- args[4]
 } else {
   output<- "REMcHeatmaps/REMcWithShift.csv" # for legacy workflow