#' Correccion manual de encoding
#'
#' Permite corregir manualmente los caracteres especiales en las encuestas de hogares 'Harmonized Surveys'
#'
#'
#' @param x vector
#'
#' @return vector con los caracteres especiales del castellano corregidos
#' @export
#'
#' @examples
#' corregir_encoding(c("Asunción", "Saã Paulo", "Tucumán"))
#'
corregir_encoding <- function( x ) {
correccion <- c("ó" = "ó", "Ã" = "í", "á" = "á", "ã" = "õ", "ô" = "ô", "ñ" = "ñ", "é" = "é", "’" = "'", "ú" = "ú")
x <- stringr::str_replace_all(x, correccion)
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.