seuratObj <- reactive ({
CreateSeuratObject(exp.data, min.cells = input$minCells, min.genes = input$minGenes, project = input$project)
})
#so <- seuratObj()
mito.genes <- grep(pattern = "^MT-", x = rownames(x = seuratObj()@data), value = TRUE)
percent.mito <- Matrix::colSums(seuratObj()@raw.data[mito.genes, ])/Matrix::colSums(seuratObj()@raw.data)
seuratObj2 <- reactive({
AddMetaData(object = seuratObj(), metadata = percent.mito, col.name = "percent.mito")
})
output$plot <- renderPlot({
VlnPlot(object = seuratObj2(), features.plot = c("nGene","nUMI", "percent.mito", ncol = 3))
})
What is the error that you are getting? You will get more helpful suggestions if you follow the guidelines in the Shiny debugging and reprex guide.
2 Likes
bad file argument after the app is launched.