Reshape df after removing whitespace

adamd3 · Oct 23, 2023 · 62e3b22 · 62e3b22
1 parent 74d2b85
commit 62e3b22
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/bin/diffexpr.R b/bin/diffexpr.R
@@ -9,10 +9,10 @@ library(plyr)
 library(tibble)
 
 if (!require("EnhancedVolcano")) {
-    if (!require("devtools", quietly = TRUE)) {
-        install.packages("devtools")
+    if (!require("BiocManager", quietly = TRUE)) {
+        install.packages("BiocManager")
     }
-    devtools::install_github("kevinblighe/EnhancedVolcano")
+    BiocManager::install("EnhancedVolcano")
     library(EnhancedVolcano)
 }
 
@@ -64,7 +64,7 @@ contrast_tab <- read.table(
     header = TRUE, sep = "\t", stringsAsFactors = FALSE
 )
 contrast_tab <- data.frame(
-    apply(contrast_tab, 2, function(x) gsub("\\s+", "", x))
+    rbind(apply(contrast_tab, 2, function(x) gsub("\\s+", "", x)))
 )