R/w_arregla_nombres.R

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

#' convierte una variable con de mención en una variable booleana
#'
#' Función para convertir una variable que tiene NA's o 'algo' como su respuesta en una variable TRUE/FALSE, donde se asigna TRUE si encuentra algún valor y FALSE si no encuentra ninguno
#'
#' @param tabla dataframe cuyos nombres deseamos limpiar
#'
#'
#' @return vector booleano


# función para convertir una variable en booleana de acuerdo a si tiene o no un valor
w_arregla_nombres <- function(tabla){
  require(stringr)
  
  names(tabla) <- names(tabla) %>%
    str_extract(.,"[^\\.]+") %>%
    str_extract(.,"[^ ]+") %>%
    str_extract(.,"[^\t ]+") %>%
    make.unique(.)
  
  return(tabla)
}