From 62e3b22b858067b643a001cde526a4be5dc5389f Mon Sep 17 00:00:00 2001 From: Adam Dinan Date: Mon, 23 Oct 2023 21:06:51 +0100 Subject: [PATCH] Reshape df after removing whitespace --- bin/diffexpr.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bin/diffexpr.R b/bin/diffexpr.R index c586452..900b862 100755 --- 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))) )