R/utils.R

In caldwellst/kobold: Easy data cleaning for XLSForm surveys

#' Escape normal string for regex
#'
#' @importFrom stringr str_replace_all
#'
#' @noRd
escape_string <- function(string) {
  str_replace_all(string, "(\\W)", "\\\\\\1")
}

#' Get argument names from ellipsis
#'
#' @importFrom purrr map_chr
#'
#' @noRd
ellipsis_names <- function(...) {
  args <- as.list(substitute(list(...)))[-1L]
  map_chr(args, deparse)
}

#' Pad text string with regex start and finish characters, ^ and $
#'
#' @noRd
pad_start_end <- function(string) {
  paste0("^", string, "$")
}