Commit 99937aee authored by Midoux Cedric's avatar Midoux Cedric
Browse files

deseq minor

parent 048044cf
......@@ -97,7 +97,7 @@ results <- metaReactive2({
# Second case: regression against a binary variable
metaExpr({
r <- DESeq2::results(object = ..(dds()),
name = ..(DESeq2::resultsNames(..(dds()))[-1]),
name = DESeq2::resultsNames(..(dds()))[-1],
tidy = TRUE) %>%
as_tibble() %>% rename(OTU = row) %>%
inner_join(tax_table(data) %>% as("matrix") %>% as_tibble(rownames = "OTU"), by = "OTU")
......@@ -112,7 +112,7 @@ results <- metaReactive2({
tidy = TRUE) %>%
as_tibble() %>% rename(OTU = row) %>%
inner_join(tax_table(data) %>% as("matrix") %>% as_tibble(rownames = "OTU"), by = "OTU")
comment(r) <- ..(paste0("You choose to compare ", input$deseqContrastMod[1], " to ", input$deseqContrastMod[2], " for the variable", input$deseqContrastVar, ".\nA positive log2FoldChange means more abundant in ", input$deseqContrastMod[1], " than in ", input$deseqContrastMod[2], "."))
comment(r) <- ..(paste0("You choose to compare ", input$deseqContrastMod[1], " to ", input$deseqContrastMod[2], " for the variable ", input$deseqContrastVar, ".\nA positive log2FoldChange means more abundant in ", input$deseqContrastMod[1], " than in ", input$deseqContrastMod[2], "."))
r
}, bindToReturn = TRUE)
}
......
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