R/string.R

In heavywatal/rwtl: Personal R package

#' String utility
#'
#' `glue()` is a shortcut of [stringr::str_glue()] without trimming.
#' @inheritParams stringr::str_glue
#' @rdname string
#' @export
glue = function(..., .sep = "", .envir = parent.frame()) {
  stringr::str_glue(..., .sep = .sep, .envir = .envir, .trim = FALSE)
}

#' @inheritParams stringr::str_glue_data
#' @rdname string
#' @export
glue_data = function(.x, ..., .sep = "", .envir = parent.frame(), .na = "NA") {
  stringr::str_glue_data(.x, ..., .sep = .sep, .envir = .envir, .na = .na, .trim = FALSE)
}

#' @description
#' `str_c_coalesce()` tries [stringr::str_c()] first,
#' and falls back to [dplyr::coalesce()].
#' @inheritParams stringr::str_c
#' @rdname string
#' @export
str_c_coalesce = function(..., sep = "", collapse = NULL) {
  dplyr::coalesce(
    stringr::str_c(..., sep = sep, collapse = collapse),
    dplyr::coalesce(...)
  )
}

#' @description
#' `rsplit()` splits a string from right.
#' @inheritParams stringr::str_split
#' @rdname string
#' @export
rsplit = function(string, pattern = "\\s+", n = 42L) {
  pattern = sprintf("%s(?!(?:.*%s){%d})", pattern, pattern, n)
  stringr::str_split(string, pattern)
}

#' @description
#' `as_chr()` converts expr into character vector.
#' @param ... expressions
#' @rdname string
#' @export
as_chr = function(...) {
  rlang::quos(...) |>
    purrr::map_chr(rlang::as_name) |>
    unname()
}

#' @description
#' `as_code()` converts a vector into R code that generates it.
#' @param x vector
#' @rdname string
#' @export
as_code = function(x) {
  conn = withr::local_connection(textConnection(NULL, "w"))
  dput(x, conn)
  textConnectionValue(conn) |> paste0(collapse = "")
}

#' Conversion between character and integer code point
#'
#' @description
#' `ord()` is a pythonic alias of `charToRaw()`.
#' @param char character
#' @rdname chr
#' @export
ord = function(char) {
  strtoi(charToRaw(char), 16L)
}

#' @description
#' `chr()` is a pythonic alias of `intToUtf8()`.
#' @param i integer
#' @rdname chr
#' @export
chr = function(i) {
  intToUtf8(i)
}