Merge pull request #1169 from bigomics/fix-1168

Fix #1168: Sample heatmap, splitby gene breaks on some genes

components/board.clustering/R/clustering_server.R

@@ -151,7 +151,7 @@ ClusteringBoard <- function(id, pgx, labeltype = shiny::reactive("feature")) {
           return()
         }
         if (input$hm_splitby == "gene") {
-          xgenes <- sort(rownames(pgx$X))
+          xgenes <- sort(rownames(getFilteredMatrix()$zx))
           shiny::updateSelectizeInput(session, "hm_splitvar", choices = xgenes, server = TRUE)
         }
         if (input$hm_splitby == "phenotype") {