Update server.R

martabica · web-flow · commit 1a77467991b9 · 2026-03-19T16:56:06.000Z
diff --git a/fea/tab_SCORES/server.R b/fea/tab_SCORES/server.R
@@ -5,7 +5,8 @@
 
 get_score <- function(mat, gene_set, name){
   gene_set <- unlist(strsplit(gene_set, ' '))
- 
+
+  mat <- as.matrix(mat)
   mat <- t(mat[gene_set,])
     
     
@@ -150,4 +151,4 @@ plot_pathway <- function(selected_pathway, nrank, species){
  
 
 
-  
+  
