R/bstr_case.R

In t-arae/bstringr: A package to use a character vector as a biological strings

#' Convert case of a bstring sequence.
#'
#' @inheritParams class_bstr
#' @examples
#' temp <- dstr_rand_seq(1, 10, "[atgcATGC]", seed = 1)
#' c(
#'   temp,
#'   upper = bstr_to_upper(temp),
#'   lower = bstr_to_lower(temp),
#'   switch = bstr_switch_case(temp)
#' )
#'
#' @name case
NULL

#' @rdname case
#' @export
bstr_to_upper <- function(bstrobj) {
  bstrobj <- as_bstr(bstrobj)
  at <- attributes(bstrobj)

  bstrobj <- stringr::str_to_upper(bstrobj)

  attributes(bstrobj) <- at
  bstrobj
}

#' @rdname case
#' @export
bstr_to_lower <- function(bstrobj) {
  bstrobj <- as_bstr(bstrobj)
  at <- attributes(bstrobj)

  bstrobj <- stringr::str_to_lower(bstrobj)

  attributes(bstrobj) <- at
  bstrobj
}

#' @rdname case
#' @export
bstr_switch_case <- function(bstrobj) {
  bstrobj <- as_bstr(bstrobj)
  at <- attributes(bstrobj)

  bstrobj <- bstrobj %>% stringr::str_extract_all(".")
  lower_c <- bstrobj %>% purrr::map(~ stringr::str_detect(.x, "[[:lower:]]"))
  upper_c <- bstrobj %>% purrr::map(~ stringr::str_detect(.x, "[[:upper:]]"))

  bstrobj <-
    bstrobj %>%
    purrr::map2(lower_c, ~ ifelse(.y, stringr::str_to_upper(.x), .x)) %>%
    purrr::map2(upper_c, ~ ifelse(.y, stringr::str_to_lower(.x), .x)) %>%
    purrr::map_chr(~ paste0(.x, collapse = ""))

  attributes(bstrobj) <- at
  bstrobj
}