R/wrappers.R

In jeroenooms/icu: Unicode Text Processing

#' Basic string processing
#'
#' Functions to manage and manipulate unicode strings.
#'
#' @export
#' @name icu
#' @useDynLib icu R_get_native_enc
#' @rdname icu
#' @examples # Show native encoding
#' icu::get_native_enc()
#' utils::localeToCharset()
get_native_enc <- function(){
  .Call(R_get_native_enc)
}

#' @param x a character vector
#' @export
#' @useDynLib icu R_stri_length
#' @rdname icu
#' @examples # Count length of strings
#' x <- c("Paris", "Zürich", "\346\235\261\344\272\254")
#' icu::stri_length(x)
#' base::nchar(x)
stri_length <- function(x){
  .Call(R_stri_length, x)
}