resolve #123

R/data.R

@@ -1091,3 +1091,18 @@
 #' }
 #' @keywords internal
 "dlbcl90_genes"
+
+#' ENSG to symbol converter
+#'
+#' A data frame with ENSEMBL gene ids in different format and the corresponding
+#'      hgnc symbols.
+#'
+#' @format ## `gencode_to_symbol`
+#' A data frame with 60038 rows and 3 columns
+#' \describe{
+#'   \item{ensembl_gene_id}{ENSEMBL gene id in a format without .<number>.}
+#'   \item{gene_id}{ENSEMBL gene id in a format containing .<number>.}
+#'   \item{hgnc_symbol}{Human-readable gene symbol.}
+#' }
+#' @keywords internal
+"gencode_to_symbol"

data-raw/DATASET.R

@@ -530,3 +530,12 @@ dlbcl90_genes <- system.file(
     ) %>%
     read_tsv()
 usethis::use_data(dlbcl90_genes, overwrite = TRUE)
+
+# ENSG to Hugo_Symbol converter
+gencode_to_symbol <- system.file(
+        "extdata",
+        "gencode_to_symbol.hg38.tsv",
+        package = "GAMBLR.data"
+    ) %>%
+    read_tsv()
+usethis::use_data(gencode_to_symbol, overwrite = TRUE)