R/get_mut_res.R

In leonjessen/Barracoda2viz:

get_mut_res = function(x){
  if(!is.tibble(x)){
    stop("Input to clean_barracoda_data is not a tibble")
  }
  x %>% mutate(mut_res_three = pep.number %>% str_match("\\d{1}-(\\w{3})$") %>%
                 .[,2],
               mut_res_one = mut_res_three %>% residue_name) %>%
    return
}