Commit 540cdc77 authored by Cedric Midoux's avatar Cedric Midoux
Browse files

deseq minor

parent 0dc7cb49
......@@ -93,7 +93,7 @@ results <- metaReactive2({
} else {
validate(need(length(input$deseqContrastMod) == 2, "Invalid input."))
if (length(levels(get_variable(data, input$deseqContrastVar))) == 2) {
if (length(levels(as.factor(get_variable(data, input$deseqContrastVar)))) == 2) {
# Second case: regression against a binary variable
metaExpr({
r <- DESeq2::results(object = ..(dds()),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment