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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.