Merge branch 'master' of https://github.com/bigomics/omicsplayground

bigomics · Mar 16, 2023 · 03128f6 · 03128f6
2 parents 642780f + ef1f7b1
commit 03128f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/board.singlecell/R/singlecell_server.R b/components/board.singlecell/R/singlecell_server.R
@@ -96,7 +96,7 @@ SingleCellBoard <- function(id, pgx) {
       kk <- selectSamplesFromSelectedLevels(pgx$Y, input$samplefilter)
       nphenolevel <- apply(pgx$samples[kk, pheno0, drop = FALSE], 2, function(v) length(unique(v)))
       pheno0 <- pheno0[which(nphenolevel > 1)]
-      genes <- sort(as.character(pgx$genes$gene_name))
+      genes <- sort(as.character(rownames(pgx$X)))
       pheno1 <- c("<cell type>", pheno0) # pheno1 <- c("<cell type>", pheno0)
       genes1 <- c("<none>", genes)
       shiny::updateSelectInput(session, "crosstabvar", choices = pheno1)