Merge pull request #187 from bigomics/fix-annot-issue-ENTREZID

fix-annotation-probetype-entrezid
bigomics · Nov 20, 2024 · 78cbfff · 78cbfff
2 parents 53e9c8b + b622855
commit 78cbfff
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/pgx-annot.R b/R/pgx-annot.R
@@ -266,8 +266,10 @@ getGeneAnnotation.ANNOTHUB <- function(
     jj <- match(names(locs), annot$ENTREZID)
     annot$MAP <- NA
     annot$MAP[jj] <- unname(locs)
-    cls <- setdiff(colnames(annot), "ENTREZID")
-    annot <- annot[, cls, drop = FALSE]
+    if (probe_type != "ENTREZID") {
+      cls <- setdiff(colnames(annot), "ENTREZID")
+      annot <- annot[, cls, drop = FALSE]
+    }
   }
 
   # some organisms do not provide symbol but rather gene name (e.g. yeast)