Use it to summarise service. For example, get a count of the number of services for a date. See example.
a gtfs_object as read by read_gtfs
a date_service data frame
1 2 3 4 5 6
library(dplyr) local_gtfs_path <- system.file("extdata", "google_transit_nyc_subway.zip", package = "trread") nyc <- read_gtfs(local_gtfs_path, local=TRUE) nyc_services_by_date <- nyc %>% get_date_service_table() # count the number of services running on each date nyc_services_by_date %>% group_by(date) %>% count()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.