diff get_deseq_dataset.R @ 4:3a083c78896e draft default tip

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/ruvseq commit 30117fce22f3771c9c0c13e70c3ad14b694de6e2
author iuc
date Fri, 21 Apr 2023 14:09:17 +0000
parents fed9d0350d72
children
line wrap: on
line diff
--- a/get_deseq_dataset.R	Fri Jul 23 22:37:45 2021 +0000
+++ b/get_deseq_dataset.R	Fri Apr 21 14:09:17 2023 +0000
@@ -14,7 +14,7 @@
     }
   }
 
-  if (!use_txi & has_header) {
+  if (!use_txi && has_header) {
       countfiles <- lapply(as.character(sample_table$filename), read.delim, row.names = 1)
       tbl <- do.call("cbind", countfiles)
       colnames(tbl) <- rownames(sample_table) # take sample ids from header
@@ -35,7 +35,7 @@
         colData = subset(sample_table, select = -filename),
         design = design_formula
       )
-  } else if (!use_txi & !has_header) {
+  } else if (!use_txi && !has_header) {
 
     # construct the object from HTSeq files
     dds <- DESeqDataSetFromHTSeqCount(