R/p_arregla_estructura.R

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

#' arreglo de la estructura de una tabla
#'
#' Función para arreglar la estructura en una tabla de política
#'
#' @param tabla dataframe - tabla cuya estructura queremos arreglar
#' @param var_inicial cadena - nombre de la primer variable que será sometida al proceso
#' @param numericas vector - nombres de las variables que deberán ser consideradas como numéricas

#' @return dataframe limpio

#' 
p_arregla_estructura <- function(tabla,var_inicial = 'genero',numericas = NA){
  
  resultado <- tabla %>% data.frame
  
  inicio <- match('genero',names(tabla))
  
  for(i in inicio:length(resultado)){
    if(names(resultado)[i] %in% numericas){
      resultado[,i] <- as.numeric(as.character(resultado[,i]))
    }else{
      resultado[,i] <- as.factor(resultado[,i])
    }
  }
  
  return(resultado)
  
}