data-raw/biomart_id_mapping_mouse.R

In travis-m-blimkie/tRavis: tRavis: an R package by Travis Blimkie

# Load the required packages
library(biomaRt)
library(dplyr)

# Use `biomaRt::getBM()` to create the conversion table
biomart_id_mapping_mouse_0 <- getBM(
  attributes = c(
    "ensembl_gene_id",
    "mgi_symbol",
    "entrezgene_id"
  ),
  mart = useMart("ensembl", dataset = "mmusculus_gene_ensembl")
)

biomart_id_mapping_mouse <- biomart_id_mapping_mouse_0 %>%
  as_tibble() %>%
  rename("entrez_gene_id" = entrezgene_id) %>%
  mutate(
    across(everything(), as.character),
    across(everything(), ~stringr::str_replace(.x, "^$", NA_character_))
  ) %>%
  arrange(ensembl_gene_id, mgi_symbol, entrez_gene_id) %>%
  distinct()

# Save the data for use in the package
usethis::use_data(biomart_id_mapping_mouse, overwrite = TRUE)