R/newChar.R

In guiboucher/INESSS-inesss: INESSS

#' Convert Characters
#'
#' Permet de convertir un ou des caractères selon les valeurs du dictionnaire `dictio`.
#'
#' @param x Chaîne de caractères.
#' @param dictio Dictionnaire à utiliser pour convertir les caractères.
#'
#' @seealso \code{\link[stringr]{str_remove}}
#' @return `x` modifié selon `dictio`.
#' @importFrom stringr str_replace_all
#' @export
#'
#' @examples
#' newChar("à é î ø ü ç ß ñ ƒ")
#' newChar("J'ai déménagé, au Québec.")
#' newChar("?&*!$%")  # aucune modification
newChar <- function(x, dictio = Char_dictio){

  if(!is.character(x)) stop("x n'est pas de type CHARACTER.")

  return(mapply(function(x){  # permet plusieurs valeurs dans x
    # Convertir le ou les caractères s'il y en a au moins un à convertir
    if(str_detect(x, paste(names(dictio), collapse = "|"))){
      for(char in names(dictio)){
        x <- str_replace_all(x, char, dictio[[char]])
      }
    }
    return(x)
  },
  x = x, SIMPLIFY = TRUE, USE.NAMES = FALSE))

}