Skip to content

Instantly share code, notes, and snippets.

@patperu
Last active February 18, 2016 17:08
Show Gist options
  • Save patperu/334a193577bd981a5855 to your computer and use it in GitHub Desktop.
Save patperu/334a193577bd981a5855 to your computer and use it in GitHub Desktop.
Parse several different Albo Pretorio providers
# studiok
res <- ap_parse_page(url = "http://albo.studiok.it/lu/albo", site = "studiok")
str(res)
## Classes 'albopop_srs' and 'data.frame': 39 obs. of 7 variables:
## $ APNumero : chr "59 / 2016" "58 / 2016" "57 / 2016" "56 / 2016" ...
## $ Descrizione: chr "" "" "" "" ...
## $ Tipo : chr "VARIE COMUNE DI LU" "DELIBERA DI GIUNTA" "DELIBERA DI GIUNTA" "DELIBERA DI GIUNTA" ...
## $ Oggetto : chr "[59 / 2016] CONTRIBUTI REGIONALI PER RACCOLTA, TRASPORTO E SMALTIMENTO DI PICCOLI QUANTITATIVI DI AMIANTO (ETERNIT)" "[58 / 2016] DELIBERA GIUNTA COMUNALE N. 109 DEL 12/11/2015" "[57 / 2016] DELIBERA GIUNTA COMUNALE N. 56 DEL 07/07/2015" "[56 / 2016] DELIBERA GIUNTA COMUNALE N. 120 DEL 18/12/2015" ...
## $ Inizio : chr "18/02/2016" "18/02/2016" "18/02/2016" "18/02/2016" ...
## $ Fino : chr "24/02/2016" "04/03/2016" "04/03/2016" "04/03/2016" ...
## $ link : chr "http://albo.studiok.it/lu/albo/dettaglio.php?id=MES00000000592016" "http://albo.studiok.it/lu/albo/dettaglio.php?id=MES00000000582016" "http://albo.studiok.it/lu/albo/dettaglio.php?id=MES00000000572016" "http://albo.studiok.it/lu/albo/dettaglio.php?id=MES00000000562016" ...
ap_build_rss(res,
rss_title = "Comune di Lu",
rss_link = "http://albo.studiok.it/lu/albo",
rss_file = "Lu.xml")
## Warning in xmlRoot.XMLInternalDocument(currentNodes[[1]]): empty XML document
# saga
res <- ap_parse_page(url = "http://pubblicazioni1.saga.it/publishing/AP/index.do?org=bellusco", site = "saga")
## Navigating to /publishing/AP/index.do;jsessionid=284BED3C2CCAA369A64309770F329116?dispatch=search&d-5113963-p=2&org=bellusco
## Navigating to /publishing/AP/index.do?dispatch=search&org=bellusco&d-5113963-p=3
str(res)
## Classes 'albopop_srs' and 'data.frame': 30 obs. of 7 variables:
## $ N..reg.: int 83 82 81 80 79 78 77 76 75 74 ...
## $ Inizio : chr "16/02/2016" "15/02/2016" "15/02/2016" "15/02/2016" ...
## $ N..atto: int 357 354 355 341 12 353 347 352 351 350 ...
## $ Tipo : chr "DETERMINAZIONI" "DETERMINAZIONI" "DETERMINAZIONI" "DETERMINAZIONI" ...
## $ Oggetto: chr "[83] CONVENZIONE PER LA CONCESSIONE IN USO DI STRUTTURE COMUNALI ALLA COOPERATIVA SOCIALE LA ROSA BLU DI RONCO BRIANTINO PER L'"| __truncated__ "[82] CONTRIBUTO ECONOMICO FINALIZZATO AL CONTRASTO DELL'EMERGENZA ABITATIVA - MISURA B - NUCLEO FAMILIARE R.S. - ASSUNZIONE IM"| __truncated__ "[81] CONTRIBUTO ECONOMICO FINALIZZATO AL CONTRASTO DELL'EMERGENZA ABITATIVA - MISURA B - NUCLEO FAMILIARE F.G. - ASSUNZIONE IMP"| __truncated__ "[80] RIMBORSO AI COMUNI DELLE SPESE SOSTENUTE PER LA FORNITURA DEI TESTI SCOLASTICI AGLI ALUNNI DELLA SCUOLA PRIMARIA. ASSUNZIO"| __truncated__ ...
## $ Fino : chr "02/03/2016" "01/03/2016" "01/03/2016" "01/03/2016" ...
## $ link : chr "http://pubblicazioni1.saga.it/docDetail.do;jsessionid=284BED3C2CCAA369A64309770F329116?docId=11921" "http://pubblicazioni1.saga.it/docDetail.do;jsessionid=284BED3C2CCAA369A64309770F329116?docId=11915" "http://pubblicazioni1.saga.it/docDetail.do;jsessionid=284BED3C2CCAA369A64309770F329116?docId=11909" "http://pubblicazioni1.saga.it/docDetail.do;jsessionid=284BED3C2CCAA369A64309770F329116?docId=11903" ...
ap_build_rss(res,
rss_title = "Comune di Bellusco",
rss_link = "http://belusco.it",
rss_file = "Bellusco.xml")
## Warning in xmlRoot.XMLInternalDocument(currentNodes[[1]]): empty XML document
# mapweb
res1 <- ap_parse_page(url = "http://www.mapweb.it/latiano/albo/albo_pretorio.php", site = "mapweb")
str(res1)
## Classes 'albopop_srs' and 'data.frame': 48 obs. of 6 variables:
## $ Numero : chr "2016/000187" "2016/000186" "2016/000185" "2016/000184" ...
## $ Oggetto: chr "[2016/000187] Impegno di spesa per il banditore pubblico" "[2016/000186] Impegno di spesa per l'acquisto di coppe, trofei e targhe." "[2016/000185] Impegno di spesa per l'acquisto di testi, abbonamenti e riviste." "[2016/000184] Impegno di spesa per l'acquisto di modelli contabili e tecnico-amministrativi dalle case specializzate." ...
## $ Atto : chr "Determina" "Determina" "Determina" "Determina" ...
## $ Inizio : chr "18/02/2016" "18/02/2016" "18/02/2016" "18/02/2016" ...
## $ Fino : chr "04/03/2016" "04/03/2016" "04/03/2016" "04/03/2016" ...
## $ link : chr "http://www.mapweb.it/latiano/albo/albo_dettagli.php?id=7311" "http://www.mapweb.it/latiano/albo/albo_dettagli.php?id=7310" "http://www.mapweb.it/latiano/albo/albo_dettagli.php?id=7309" "http://www.mapweb.it/latiano/albo/albo_dettagli.php?id=7308" ...
ap_build_rss(res,
rss_title = "Comune di Latiano",
rss_link = "http://www.mapweb.it/latiano",
rss_file = "Latiano.xml")
## Warning in xmlRoot.XMLInternalDocument(currentNodes[[1]]): empty XML document
# JCityGov - Comune di Medesano
res <- ap_parse_page(url = "http://195.62.183.230/web/trasparenza/papca-ap/-/papca/igrid/166/177", site = "JCityGov")
str(res)
## Classes 'albopop_srs' and 'data.frame': 47 obs. of 6 variables:
## $ Numero : chr "2016 / 123" "2016 / 122" "2016 / 121" "2016 / 120" ...
## $ Tipo : chr "ATTI /ORDINANZE" "ATTI /ORDINANZE" "ATTI /DETERMINAZIONE" "ATTI /DETERMINAZIONE" ...
## $ Oggetto: chr "[2016 / 123] DIVIETO DI TRANSITO E SOSTA PER OCCUPAZIIONE DI SUOLO PUBBLICO IN VIA RAFFAELLO IN MEDESANO CAPOLUOGO IN UNA SOLA "| __truncated__ "[2016 / 122] ISTITUZIONE ZONA A TRAFFICO LIMITATO IN BORGO GRAMSCI A MEDESANO" "[2016 / 121] ABBONAMENTO A SERVIZI ANCITEL E CONSULTAZIONE BANCA DATI ACI-PRA" "[2016 / 120] IMPEGNO DI SPESA A FAVORE DELL'AVV. ROBERTO OLLARI FORO DI PARMA" ...
## $ Inizio : chr "18/02/2016" "18/02/2016" "18/02/2016" "18/02/2016" ...
## $ Fino : chr "25/02/2016" "25/02/2016" "25/02/2016" "25/02/2016" ...
## $ link : chr "http://195.62.183.230/web/trasparenza/papca-ap/-/papca/display/11654;jsessionid=DB5EAAB71AF8BD85BB4CBFA119B67460?p_auth=5uKV0Ne"| __truncated__ "http://195.62.183.230/web/trasparenza/papca-ap/-/papca/display/11652;jsessionid=DB5EAAB71AF8BD85BB4CBFA119B67460?p_auth=5uKV0Ne"| __truncated__ "http://195.62.183.230/web/trasparenza/papca-ap/-/papca/display/11650;jsessionid=DB5EAAB71AF8BD85BB4CBFA119B67460?p_auth=5uKV0Ne"| __truncated__ "http://195.62.183.230/web/trasparenza/papca-ap/-/papca/display/11647;jsessionid=DB5EAAB71AF8BD85BB4CBFA119B67460?p_auth=5uKV0Ne"| __truncated__ ...
ap_build_rss(res,
rss_title = "Comune di Medesano",
rss_link = "http://195.62.183.230/web/trasparenza/",
rss_file = "Medesano.xml")
## Warning in xmlRoot.XMLInternalDocument(currentNodes[[1]]): empty XML document
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment