R/utils.R

In dfalbel/jupiter: What the package does (short line)

#' Conserta problemas de encoding
#' 
#' não sei direito qual é o motivo, mas todos os nomes extraidos têm problemas
#' de encoding no meu computador, por isso existe essa função.
#' 
#' @param x um vetor de caracteres
#' 
#' @return o vetor x com os problemas corrigidos
fix_encoding <- function(x){
  x <- str_replace_all(x, "Ã\u0083£", "ã")
  x <- str_replace_all(x, "Ã\u0083ª", "ê")
  x <- str_replace_all(x, "Ã\u0083§", "ç")
  x <- str_replace_all(x, "Ã\u0083¡", "á")
  x <- str_replace_all(x, "Ã\u0083©", "é")
  x <- str_replace_all(x, "Ã\u0083º", "ú")
  x <- str_replace_all(x, "Ã\u0083³", "ó")
  x <- str_replace_all(x, "Ã\u0083Â", "í")
  return(x)
}

#' Conserta os problemas de encoding em data.frames
#' 
#' não sei direito qual é o motivo, mas todos os nomes extraidos têm problemas
#' de encoding no meu computador, por isso existe essa função.
#' 
#' @param x data.frame com problemas de encoding
#' 
#' @return o data.frame x com os problemas corrigidos
fix_encoding_df <- function(x){
  names(x) <- fix_encoding(names(x))
  for(i in 1:ncol(x)){
    if(class(x[,i]) == "character"){
      x[,i] <- fix_encoding(as.character(x[,i]))
    }
  }
  return(x)
}