-
Notifications
You must be signed in to change notification settings - Fork 0
/
teste_igualdade_variaveis
36 lines (28 loc) · 1.07 KB
/
teste_igualdade_variaveis
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
# Função criada pelo mgaldino para verificar se há diferenças entre as variáveis contidas em dois dfs:
teste_igualdade_nomes_var_df <- function(base1, base2) {
x <- names(base1)
y <- names(base2)
n <- length(x)
k <- length(y)
teste_nome_igual_x <- numeric()
teste_nome_igual_y <- numeric()
for ( i in 1:n) {
teste_nome_igual_x[i] <- x[i] %in% y
}
for ( i in 1:k) {
teste_nome_igual_y[i] <- y[i] %in% x
}
resp_x <- paste(x[!as.logical(teste_nome_igual_x)], collapse = ", ")
resp_y <- paste(y[!as.logical(teste_nome_igual_y)], collapse = ", ")
cat(paste("Colunas de", deparse(substitute(base1)), "ausentes em" ,
deparse(substitute(base2)), ":", resp_x,
".\n\nColunas de", deparse(substitute(base2)), "ausentes em" ,
deparse(substitute(base1)), ":", resp_y,
sep=" "))
}
## Exemplo:
# teste_igualdade_nomes_var_df(ind, jud3)
#
#Colunas de ind ausentes em jud3 : atendimento, situacao, UF, municipio, esfera .
#
#Colunas de jud3 ausentes em ind : status, situação, uf, município, nivel