From 59388b19856c96ff9467e6f2a0a463482909c327 Mon Sep 17 00:00:00 2001
From: Alexander Blume <alex.gos90@gmail.com>
Date: Wed, 8 May 2024 15:58:20 +0200
Subject: [PATCH] update Deseq_Report.Rmd.in to fix error:

Error in `if (annotGene != "None") ...`:
! the condition has length > 1
---
 scripts/Deseq_Report.Rmd.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/Deseq_Report.Rmd.in b/scripts/Deseq_Report.Rmd.in
index a224743..8ecbd3c 100644
--- 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 <- ""