Commit 9e89e8cd authored by Bagueneau Mathias's avatar Bagueneau Mathias
Browse files

Change idents

parent 2a0abf1d
......@@ -719,8 +719,9 @@ server <- function(input, output, session) {
if (!exists("ffm")) { # Partie pour comparer avec deux factors
ffm <- filedata$data
}
Idents(object=ffm) <- input$fsel2 # input$add_factor1 # input$add_factor2
df <- withProgress(data.frame(FindMarkers(ffm, c(input$add_group1, input$library1_compare), input$add_group2 , test.use = "MAST")), message = "Preparing data", value=1)
ffm@meta.data$mixfactor <- paste(input$fsel2, input$add_factor1, input$add_factor2)
Idents(object=ffm) <- "mixfactor" # input$add_factor1 # input$add_factor2
df <- withProgress(data.frame(FindMarkers(ffm, c(input$library1_compare,input$add_group1), c(input$library2_compare, input$add_group2), test.use = "MAST")), message = "Preparing data", value=1)
setDT(df, keep.rownames = TRUE)[]
df <- data.frame(c(df,(input$fsel2)))
......@@ -745,7 +746,7 @@ server <- function(input, output, session) {
names(df)[[5]] <- paste("pct.",sapply(input$library2_compare, paste, collapse=""), collapse=" + ")
}
}
names(df)[[1]] <- "Gene"
names(df)[[7]] <- paste("",input$fsel2)
output$markers_compare <- renderDataTable ({
......
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