data_path <- system.file("extdata/spo_gtfs.zip", package = "gtfstools")
gtfs <- read_gtfs(data_path)
# this gtfs includes some duplicated entries
gtfs$agency
gtfs <- remove_duplicates(gtfs)
gtfs$agency
Run the code above in your browser using DataLab