R/p_incorpora_otro.R

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

#' extracción para incorporar los valores "otro" en la variable
#'
#' Función para incorporar los valores "otro" en la variable original
#'
#' @param tabla dataframe - tabla en la que queremos aplicar el proceso


#' @return dataframe limpio

#' 
p_incorpora_otro <- function(tabla){
  
  funcion_incorporacion <- function(variable,tabla){
    eval(parse(text = paste0(
      'resultado <- tabla %>%
      mutate(
      ',variable,' = as.character(',variable,'),
      ',variable,'_otro_r = as.character(',variable,'_otro_r),
      ',variable,' = if_else(!is.na(',variable,'_otro_r),',variable,'_otro_r,',variable,')
      )'
      
    )))
    return(resultado)
  }
  
  variables <- str_detect(names(tabla),pattern = '_otro_r') %>%
    names(tabla)[.] %>%
    str_sub(.,1,-8)
  
  resultado <- tabla
  
  for(i in variables){
    resultado <- funcion_incorporacion(i,resultado)
  }
  
  return(resultado)
}