Skip to content

Instantly share code, notes, and snippets.

@patperu
Last active February 23, 2016 13:42
Show Gist options
  • Save patperu/021db7f651901e9d1e0b to your computer and use it in GitHub Desktop.
Save patperu/021db7f651901e9d1e0b to your computer and use it in GitHub Desktop.
# https://groups.google.com/d/msg/spaghettiopendata/uD7eCohKmN4/WmijC9-ZAAAJ
library('rvest')
url <- "http://albopretorio.comune.barletta.bt.it/hypersicportale/portale/albopretorio/albopretorioconsultazione.aspx?CATEGORIA_ID=6&EVENTO_ID=2"
s <- html_session(url)
s_items <- html_nodes(s, xpath = "//*[@class='itemstyle' or @class='alternatingitemstyle']")
fin <- data.frame(matrix(s_items %>% html_nodes("td") %>% html_text(), ncol= 4, byrow=TRUE), stringsAsFactors=FALSE)
colnames(fin) <- c("Inizio", "Ente", "Oggetto", "Fine")
link <- unique(html_nodes(s_items, xpath = "//*[@onclick]") %>% html_attr("onclick"))
fin$link <- do.call("rbind", strsplit(link, "'"))[, 2]
write.csv(fin, file = "Barletta.csv", row.names = FALSE)
Inizio Ente Oggetto Fine link
23/02/2016 SERVIZI ISTITUZIONALI CONVOCAZIONI VII^ CC.P " AMBIENTE - VERDE PUBBLICO - SERVIZI PUBBLICI " PER IL GIORNO 26/2/2016 ALLE ORE 11,30 E PER IL GIORNO 29/02/2016 ALLE ORE 15,30. 29/02/2016 AlboPretorio1$dgRisultati$ctl03
23/02/2016 PM DETERMINA N.93 DEL 27/01/2016 - SETTORE VIGILANZA E PROTEZIONE CIVILE: ANCITEL PER CONSULTAZIONE BANCA DATI ANNO 2016 SIC. IMPEGNO DI SPESA . 09/03/2016 AlboPretorio1$dgRisultati$ctl04
23/02/2016 CULTURA - TEATRO DETERMINA N.128 DEL 01/02/2016 - SETTORE BENI E SERVIZI CULTURALI-TEATRO: QUOTA ASSOCIATIVA DOVUTA AL TEATRO PUBBLICO PUGLIESE PER L'ANNO 2016. 09/03/2016 AlboPretorio1$dgRisultati$ctl05
23/02/2016 CULTURA - TEATRO DETERMINA N.189 DEL 11/02/2016 - SETTORE BENI E SERVIZI CULTURALI-TEATRO: APPALTO PER LA GESTIONE DEI SERVIZI AUSILIARI RELATIVI AL TEATRO COMUNALE G. CURCI DI BARLETTA - NOMINA COMMISSIONE 09/03/2016 AlboPretorio1$dgRisultati$ctl06
23/02/2016 AMBIENTE DETERMINA N.186 DEL 11/02/2016 - SETTORE AMBIENTE: ADEGUAMENTO DEL DISCIPLINARE TECNICO - ECONOMICO REGOLANTE IL SERVIZIO DI IGIENE URBANA CONSEGUENTE L'APPROVAZIONE DEL PROGETTO UNITARIO DI ARO. LIQUIDAZIONE FATTURA 09/03/2016 AlboPretorio1$dgRisultati$ctl07
23/02/2016 SPORT DETERMINA N.206 DEL 12/02/2016 - SETTORE SERVIZI SERVIZI SOCIALI, SANITARI, PUBBLICA ISTRUZIONE,: PROGETTO IN RETE, DA REALIZZARSI CON DIVERSE ISTITUZIONI SCOLASTICHE LOCALI, DENOMINATO SCUOLA & CIP PRATICA SPORTIVA TRA GLI STUDENTI CON DISABILITÀ 09/03/2016 AlboPretorio1$dgRisultati$ctl08
23/02/2016 PM DETERMINA N.218 DEL 17/02/2016 - SETTORE VIGILANZA E PROTEZIONE CIVILE: CANONE 2016 ACI PER CONSULTAZIONE DELLA BANCA DATI PRA. IMPEGNO DI SPESA. 09/03/2016 AlboPretorio1$dgRisultati$ctl09
23/02/2016 SETTORE ORGANIZZAZIONE E SVILUPPO RISORSE UMANE DETERMINA N.220 DEL 17/02/2016 - SETTORE PROGRAMMAZIONE GARE, APPALTI E CONTRATTI: NOLEGGIO DI N. 1 FOTOCOPIATORE MULTIFUNZIONE A COLORI IN ADESIONE AL MEPA IN FAVORE DELLA DITTA DELTA UFFICIO S.N.C. DI PALERMO. 09/03/2016 AlboPretorio1$dgRisultati$ctl10
23/02/2016 PM DETERMINA N.219 DEL 17/02/2016 - SETTORE VIGILANZA E PROTEZIONE CIVILE: CANONE PONTE RADIO 2016- MINISTERO DELLE COMUNICAZIONI-. 09/03/2016 AlboPretorio1$dgRisultati$ctl11
23/02/2016 PM DETERMINA N.217 DEL 17/02/2016 - SETTORE VIGILANZA E PROTEZIONE CIVILE: CANONE 2016 PER CONSULTAZIONE BANCA DATI ACI-PRA TRAMITE ANCITEL 09/03/2016 AlboPretorio1$dgRisultati$ctl12
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment