feat: handle single k case

sapply returns a numeric vector, make it a single row matrix so downstream code works as expected
bigomics · Oct 16, 2024 · 92f93ac · 92f93ac
1 parent e52cbda
commit 92f93ac
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/components/board.clustering/R/clustering_plot_genemodule.R b/components/board.clustering/R/clustering_plot_genemodule.R
@@ -66,6 +66,10 @@ clustering_plot_genemodule_server <- function(id,
       mat <- res$mat
       idx <- res$idx
       modx <- sapply(1:ncol(mat), function(i) tapply(mat[, i], idx, mean))
+      if (is.null(dim(modx))) {
+        modx <- matrix(modx, nrow = 1)
+        rownames(modx) <- unique(idx)
+      }
       colnames(modx) <- colnames(mat)
 
       return(list(