Try to import the gtfs files from SardegnaMobilità

check_gtfs_sardegna.R

# http://www.sardegnamobilita.it/opengovernment/opendata/

# see https://github.com/ropenscilabs/gtfsr
# package not on CRAN yet
# devtools::install_github('ropenscilabs/gtfsr')
library("gtfsr")

gtfs_data <- c("http://www.ctmcagliari.it/google_transit_feed/google_transit.zip",
               "http://www.sardegnamobilita.it/opendata/dati_atpnu.zip",
               "http://www.sardegnamobilita.it/opendata/dati_aspo.zip",
               "http://www.sardegnamobilita.it/opendata/dati_atpss.zip",
               "http://www.arstspa.info/arst-cagliari-it.zip",
               "http://www.sardegnamobilita.it/opendata/dati_trenitalia.zip",
               "http://www.sardegnamobilita.it/opendata/dati_privati.zip",
               "http://www.sardegnamobilita.it/opendata/dati_mare.zip")

# Capture output in file
cap_output <- function(gtfs) {

  out_file <- gsub(".zip", ".txt", basename(gtfs))

  zz <- file(out_file, open = "wt")
  sink(zz)
  sink(zz, type = "message")
     try(import_gtfs(gtfs))
  sink(type = "message")
  sink()

}

lapply(gtfs_data, cap_output)