library(dplyr)
updated_features <- brauer_2008_triple$features %>%
dplyr::filter(BP == "biological process unknown") %>%
dplyr::mutate(chromosome = purrr::map_int(systematic_name, function(x) {
which(LETTERS == stringr::str_match(x, "Y([A-Z])")[2])
}))
update_tomic(brauer_2008_triple, updated_features)
Run the code above in your browser using DataLab