Narzędzia użytkownika

Narzędzia witryny


ewdprocedury_weryfikacja_bazy_szkol

Różnice

Różnice między wybraną wersją a wersją aktualną.

Odnośnik do tego porównania

Both sides previous revision Poprzednia wersja
ewdprocedury_weryfikacja_bazy_szkol [2014/10/01 11:18]
t.zoltak
ewdprocedury_weryfikacja_bazy_szkol [2014/12/03 23:53] (aktualna)
t.zoltak
Linia 84: Linia 84:
 } }
 do_schowka(zmiany) do_schowka(zmiany)
 +# i jeszcze śledzenie ew. zmian kodów OKE w stosunku do zrzutu
 +maskaZmienne = intersect(names(daneZrodl),​ names(danePopr))
 +maskaZmienne = maskaZmienne[grep("​^id_szkoly_strona$|^kod_(g|lo|t)_",​ maskaZmienne)]
 +polaczone = merge(
 + daneZrodl[,​ maskaZmienne],​
 + danePopr[, maskaZmienne],​
 + by = "​id_szkoly_strona",​
 + suffixes = c("",​ "​_popr"​)
 +)
 +maskaZmienne = maskaZmienne[grep("​kod_(g|lo|t)_",​ maskaZmienne)]
 +maska = apply(polaczone[,​ maskaZmienne] != polaczone[, paste0(maskaZmienne,​ "​_popr"​)],​ 1, any)
 +polaczone = polaczone[maska %in% TRUE, ]
 +maska = polaczone[, maskaZmienne] == polaczone[, paste0(maskaZmienne,​ "​_popr"​)]
 +polaczone[, maskaZmienne][maska] = ""​
 +polaczone[, paste0(maskaZmienne,​ "​_popr"​)][maska] = ""​
 +maska = apply(polaczone[,​ maskaZmienne] != polaczone[, paste0(maskaZmienne,​ "​_popr"​)],​ 2, any)
 +polaczone = polaczone[, c("​id_szkoly_strona",​ maskaZmienne[maska],​ paste0(maskaZmienne,​ "​_popr"​)[maska])]
 +{
 + cat("​Zmiany id OKE szkół w latach wcześniejszych:​\n"​)
 + print(polaczone)
 +}
 +do_schowka(polaczone)
 </​code>​ </​code>​
  
ewdprocedury_weryfikacja_bazy_szkol.txt · ostatnio zmienione: 2014/12/03 23:53 przez t.zoltak