return(DEG) placement #2 (outside of ifelse loops

BarryDigby · Apr 23, 2021 · 200898b · 200898b
1 parent dd7a64d
commit 200898b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bin/DEA.R b/bin/DEA.R
@@ -238,7 +238,6 @@ DESeq2 <- function(inputdata, data_type){
             for(var in contrasts){
                 contrast <- paste(var, "vs", reference, sep="_")
                 DEG <- getDESeqDEAbyContrast(dds, contrast, reference, var, outdir)
-                return(DEG)
             }
         }
     }else if(data_type == "circRNA"){
@@ -272,12 +271,12 @@ DESeq2 <- function(inputdata, data_type){
             for(var in contrasts){
                 contrast <- paste(var, "vs", reference, sep="_")
                 DEG <- getDESeqDEAbyContrast(dds, contrast, reference, var, outdir)
-                return(DEG)
             }
         }
     }else{
         giveError("Data type not provided correctly, check end of script")
     }
+    return(DEG)
 }