gtfs_path <- system.file("extdata/ggl_gtfs.zip", package = "gtfsio")
gtfs <- import_gtfs(gtfs_path)
check_field_class(
gtfs,
"calendar",
fields = c("monday", "tuesday"),
classes = rep("integer", 2)
)
check_field_class(
gtfs,
"calendar",
fields = c("monday", "tuesday"),
classes = c("integer", "character")
)
Run the code above in your browser using DataLab