R/is.ASCII.R

In HKRbook: Apps and Data for the Book "Introduction to Statistics"

#' is.ASCII
#'
#' Checks if \code{txt} contains only ASCII characters.
#'
#' @param txt character: text to check
#'
#' @return logical
#' @export
#'
#' @examples
#' is.ASCII("Congratulations")
#' is.ASCII("Herzlichen Glückwunsch")
is.ASCII <- function (txt) { all(charToRaw(txt) <= as.raw(127)) }