R/multibyte_chars.R

In meerapatelmd/rubix: rubix Package

#' @export

rm_multibyte <-
  function(vector) {
    stringr::str_remove_all(
      string = vector,
      pattern = "[^ -~]"
    )
  }



#' Remove all multibyte characters in the dataframe
#' @importFrom dplyr mutate_all
#' @importFrom stringr str_replace_all
#' @export

rm_multibyte_chars <-
  function(data) {
    data %>%
      dplyr::mutate_if(is.character, ~ rm_multibyte(.))
  }