Merge pull request #3 from adamd3/develop

Enforce column types in contrasts file
adamd3 · Jan 25, 2024 · 032c336 · 032c336
2 parents 0e92724 + 734ac81
commit 032c336
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/bin/diffexpr.R b/bin/diffexpr.R
@@ -61,8 +61,11 @@ meta_tab <- read.table(
 )
 contrast_tab <- read.table(
     cont_tab_f,
-    header = TRUE, sep = "\t", stringsAsFactors = FALSE
+    header = TRUE, sep = "\t", stringsAsFactors = FALSE,
+    colClasses = rep("character", 2)
 )
+
+# remove whitespace
 contrast_tab <- data.frame(
     rbind(apply(contrast_tab, 2, function(x) gsub("\\s+", "", x)))
 )