R/vars_list_procedure.R

In FabioSeixas/weatherData: A tool to merge tabular climate data from different sources

#' Title
#' @import here
#' @import stringr
#' @import dplyr
#' @import tidyr
vars_list_procedure = function(data){

  # Variáveis
  vars_list = vars_list

  var_vec = c()

  for(i in 1:(ncol(data))){

    str_remove_all(names(data)[i],
                   pattern = fixed("...")) %>%
      str_remove_all(pattern = fixed("(%)")) %>%
      str_remove_all(pattern = fixed("(°C)")) %>%
      str_remove_all(pattern = fixed("(AUT)")) %>%
      str_remove_all(pattern = fixed("(hPa)")) %>%
      str_remove_all(pattern = fixed("(m/s)")) %>%
      str_remove_all(pattern = fixed("(graus)")) %>%
      str_remove_all(pattern = fixed("(graus)")) %>%
      str_remove_all(pattern = fixed("(mm)")) %>%
      str_remove_all(pattern = fixed("(KJ/M²)")) %>%
      str_remove_all(pattern = fixed("(Kj/m²)")) %>%
      str_remove_all(pattern = fixed("0000")) %>%
      str_remove_all(pattern = fixed("0100")) %>%
      str_remove_all(pattern = fixed("0200")) %>%
      str_remove_all(pattern = fixed("0300")) %>%
      str_remove_all(pattern = fixed("0400")) %>%
      str_remove_all(pattern = fixed("0500")) %>%
      str_remove_all(pattern = fixed("0600")) %>%
      str_remove_all(pattern = fixed("0700")) %>%
      str_remove_all(pattern = fixed("0800")) %>%
      str_remove_all(pattern = fixed("0900")) %>%
      str_remove_all(pattern = fixed("1000")) %>%
      str_remove_all(pattern = fixed("1100")) %>%
      str_remove_all(pattern = fixed("1200")) %>%
      str_remove_all(pattern = fixed("1300")) %>%
      str_remove_all(pattern = fixed("1400")) %>%
      str_remove_all(pattern = fixed("1500")) %>%
      str_remove_all(pattern = fixed("1600")) %>%
      str_remove_all(pattern = fixed("1700")) %>%
      str_remove_all(pattern = fixed("1900")) %>%
      str_remove_all(pattern = fixed("2000")) %>%
      str_remove_all(pattern = fixed("2100")) %>%
      str_remove_all(pattern = fixed("2200")) %>%
      str_remove_all(pattern = fixed("2300")) %>%
      str_remove_all(pattern = fixed("2400")) %>%
      str_remove_all(pattern = fixed(i)) %>%
      str_trim() -> var_vec[i]
  }

  var_vec = as.factor(var_vec)

  for(i in var_vec %>% levels){
    if(str_count(i) == 0){
      var_vec = droplevels(var_vec, i)
    }
  }


  ##############################
  dic = c()

  for(i in 1:(var_vec %>%
              levels %>%
              length)){
    for(n in 1:(vars_list %>%
                length)){
      if((levels(var_vec)[i]) %in% (vars_list[[n]])){

        message(paste("Encontrado: ", levels(var_vec)[i],
                    " e ", names(vars_list)[n]))

        key = names(vars_list)[n]

        value = levels(var_vec)[i]

        names(value) = key

        dic = c(dic, value)

      }
    }
  }

  return(dic)

}