R/w_limpieza_caracteres2.R

In pelishk/upax_library: Librería de análisis

#' función para limpiar caracteres de un dataframe
#'
#' Limpia los espacios raros, y la puntuación en un dataframe
#'
#' @param datos dataframe que se desea limpiar
#' @param patron Expresion regular o valores que se reemplazaran en el data frame
#' @param reemplazo Valor con el que se reemplazaran las coincidencias del patron
#' @param fijo El valor default False indica que es una expresion regular, True indica que es un valor fijo
#'
#' @return dataframe limpio


# función para limpiar caracteres en todo el data frame
w_limpieza_caracteres2<-function(datos,patron,reemplazo = '',fijo = F){
  
  ejecucion<-paste0("limpia_caracteres<-function(columna,patron = '",patron,"',reemplazo = '",reemplazo,"',fijo =", fijo,"){ 
                  if(is.factor(columna)){
    levels(columna)<-gsub(patron,reemplazo,levels(columna),fixed = fijo)
  }else if(is.character(columna)){
    columna<-gsub(patron,reemplazo,columna,fixed = fijo)
  }
  return(columna)
}")
  eval(parse(text=ejecucion))
  
  datos <- datos %>% mutate_all(limpia_caracteres)
  
  return(datos)
}