gtfs_path <- system.file("extdata/ggl_gtfs.zip", package = "gtfsio")
gtfs <- import_gtfs(gtfs_path)
check_field_exists(gtfs, "calendar", c("monday", "tuesday"))
check_field_exists(gtfs, "calendar", c("monday", "oi"))
Run the code above in your browser using DataLab