Narzędzia użytkownika

Narzędzia witryny


ewdprocedury_pobieranie_bazy_szkol

To jest stara wersja strony!


Eksport z bazy danych o szkołach

rodzajSzkoly = "gimn."	# "gimn."|"LO"|"LP"|"T"
plikWyjscie="baza gimn.csv"  # dostosować
zrodloODBC = "EWD"           # dostosować

library(RODBCext)
setwd("setwd("~/Desktop/")


dozwoloneRodzaje = c("gimn.", "LO", "LP", "T")
przyrostki       = c("g"    , "lo", "lo", "t")
if (rodzajSzkoly %in% dozwoloneRodzaje) {
  przyr = przyrostki[dozwoloneRodzaje == rodzajSzkoly]
  p = odbcConnect(zrodloODBC)
  szkoly = sqlExecute(
    p,
    "SELECT rok, id_szkoly AS id_szkoly_strona, id_szkoly_ewd, id_szkoly_oke,
      typ_szkoly, publiczna, dla_doroslych, specjalna, przyszpitalna,
      nazwa, adres, miejscowosc, pna, poczta, wielkosc_miejscowosci AS l_mieszk,
      id_wojewodztwa AS wojewodztwo, id_powiatu AS powiat, id_gminy AS gmina,
      matura_miedzynarodowa AS ib
    FROM (SELECT * FROM szkoly WHERE typ_szkoly= ?) AS szkoly
      JOIN szkoly_dane USING (id_szkoly)
    WHERE id_szkoly > 0 AND rok > 2005
    ORDER BY id_szkoly_ewd, rok;",
    rodzajSzkoly,
    fetch=T, stringsAsFactors=F
  )
  odbcClose(p)
 
  if (rodzajSzkoly=="gimn.") szkoly = szkoly[, names(szkoly) != "ib"]
}


ewdprocedury_pobieranie_bazy_szkol.1406828064.txt.gz · ostatnio zmienione: 2014/07/31 19:34 przez t.zoltak