Skip to content

Commit

Permalink
add read_deseq
Browse files Browse the repository at this point in the history
cstubben committed Jun 14, 2024
1 parent 5a0c0d5 commit 4057ae3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/read_deseq.R
Original file line number Diff line number Diff line change
@@ -17,7 +17,7 @@
read_deseq <- function(file, object="results"){
if(object =="results"){
## load all worksheets with _vs_ ???
wk <- excel_sheets(file)
wk <- readxl::excel_sheets(file)
n <- grep("_vs_", wk)
if(length(n)==0) stop("No results with _vs_ in worksheet names")
res <- vector("list", length(n))
@@ -27,7 +27,7 @@ read_deseq <- function(file, object="results"){
res[[i]] <- read_excel(file, sheet= n[i])
}
} else{
s1 <- read_excel(file, sheet="samples")
s1 <- readxl::read_excel(file, sheet="samples")
message("Loading ", object, " worksheet")
r1 <- read_excel(file, sheet= object)
## delete gene_name and biotype

0 comments on commit 4057ae3

Please sign in to comment.