R/str_nonascii.R

In stackcon/rngt: General data science and utilities package

.REGEX_nonascii = "[^\\x00-\\x7F]"

#' Check for any non-ASCII characters
#'
#' @param x vector of strings
#' @param ... additional arguments passed to `base::grepl`
#'
#' @return a logical vector the same length as x
#' @export
str_nonascii <- function(x, ...) {
	grepl(.REGEX_nonascii, x , perl = TRUE, useBytes = TRUE, ...)
}