calculate the reverse complement of a BTOP string (uses tidyverse)

rbtop.R

comp <- set_names(
  as.list(str_split("TAACGRYSWMKVHDBN", "", simplify = 1)), 
  str_split("ATUGCYRSWKMBDHVN", "", simplify = T)
)

revcomp_btop <- function(btop)
{
  str_replace_all(btop, "([A-Z-])([A-Z-])", " \\2 \\1 ") %>% 
    str_split(" ", simplify = T) %>% 
    rev() %>% 
    sapply(function(ele) { code <- comp[[ele]]; ifelse(is.null(code), ele, code); }, USE.NAMES = F) %>%
    str_c(collapse = "")
}