fix issue. solution implemented

Author: ivokwee

components/board.expression/R/expression_server.R

@@ -573,9 +573,13 @@ ExpressionBoard <- function(id, pgx, labeltype = shiny::reactive("feature")) {
       if (is.null(sel.row)) {
         return(NULL)
       }
+
+      ## determine which column to match with pgx$GMT
       gene1 <- res[sel.row, ]
-      ##gmt_gene_mapping <- ifelse(is.na(gene1$human_ortholog), gene1$symbol, gene1$human_ortholog)
-      gmt_gene_mapping <- gene1$symbol, gene1$human_ortholog)
+      match.res <- apply(res[,c("symbol","human_ortholog")],2,
+        function(x) sum(x%in%rownames(pgx$GMT)))
+      match.col <- names(which.max(match.res))
+      gmt_gene_mapping <- gene1[,match.col]
       j <- which(rownames(pgx$GMT) == gmt_gene_mapping)
       if (length(j) == 0) {
         return(NULL)