update Deseq_Report.Rmd.in to fix error:

Error in `if (annotGene != "None") ...`: ! the condition has length > 1
BIMSBbioinfo · May 8, 2024 · 59388b1 · 59388b1
1 parent 050b132
commit 59388b1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/Deseq_Report.Rmd.in b/scripts/Deseq_Report.Rmd.in
@@ -613,7 +613,7 @@ if(filterUP(DE, 0, 0.1) > 0) {
 
     geneOrPeakUp <-  with(
                           DE[!is.na(DE$padj) & DE$padj < 0.1 & DE$log2FoldChange > 0, ],
-                          if(annotGene != "None") unique(unlist(strsplit(annotGene,":")))
+                          if(any(annotGene != "None")) unique(unlist(strsplit(annotGene,":")))
                           else sprintf("%s:%s:%s",seqnames,start,end))
 } else {
     geneOrPeakUp <- ""