View source: R/validate_gtfs.R
validate_gtfs | R Documentation |
Validates the GTFS object against GTFS specifications and raises warnings if
required files/fields are not found. This function is called in read_gtfs()
.
validate_gtfs(gtfs_obj, files = NULL, warnings = TRUE)
gtfs_obj |
gtfs object (i.e. a list of tables, not necessary a tidygtfs object) |
files |
A character vector containing the text files to be validated
against the GTFS specification without the file extension ( |
warnings |
Whether to display warning messages (defaults to |
Note that this function just checks if required files or fields are missing. There's no validation for internal consistency (e.g. no departure times before arrival times or calendar covering a reasonable period).
A validation_result
tibble containing the validation summary of all
possible fields from the specified files.
GTFS object's files and fields are validated against the GTFS specifications as documented in GTFS Schedule Reference:
GTFS feeds are considered valid if they include all required files and fields. If a required file/field is missing the function (optionally) raises a warning.
Optional files/fields are listed in the reference above but are not required, thus no warning is raised if they are missing.
Extra files/fields are those who are not listed in the reference above (either because they refer to a specific GTFS extension or due to any other reason).
Note that some files (calendar.txt
, calendar_dates.txt
and
feed_info.txt
) are conditionally required. This means that:
calendar.txt
is initially set as a required file. If it's not
present, however, it becomes optional and calendar_dates.txt
(originally set as optional) becomes required.
feed_info.txt
is initially set as an optional file. If
translations.txt
is present, however, it becomes required.
validate_gtfs(gtfs_duke)
## Not run:
local_gtfs_path <- system.file("extdata", "nyc_subway.zip", package = "tidytransit")
gtfs <- read_gtfs(local_gtfs_path)
attr(gtfs, "validation_result")
gtfs$shapes <- NULL
validation_result <- validate_gtfs(gtfs)
# should raise a warning
gtfs$stop_times <- NULL
validation_result <- validate_gtfs(gtfs)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.