#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.