rpt_ex01 <- report_example("MRK_List1-EX01.rpt")
read_report(report_file = rpt_ex01, report_type = "MRK_List1") |>
dplyr::select("marker_status", "marker_symbol", "marker_id_now")
# NB:
# - "1700024N20Rik" has two conflicting mappings, so maps to `NA`.
# - "Hes1" is not present in MRK_List1-EX01.rpt, so maps to `NA`.
# - "Plpbp" (official) and "Prosc" (withdrawn) both map to "MGI:1891207"
marker_symbols <- c("2200002F22Rik", "Plpbp", "Prosc", "1700024N20Rik", "Hes1")
symbol_to_identifier(x = marker_symbols, report_file = rpt_ex01)
Run the code above in your browser using DataLab