inst/doc/validating.R

In gtfstools: General Transit Feed Specification (GTFS) Editing and Analysing Tools

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = identical(tolower(Sys.getenv("NOT_CRAN")), "true"),
  out.width = "100%"
)

## -----------------------------------------------------------------------------
#  library(gtfstools)
#  
#  latest_validator <- download_validator(tempdir())
#  latest_validator

## -----------------------------------------------------------------------------
#  data_path <- system.file("extdata/spo_gtfs.zip", package = "gtfstools")
#  
#  path_output_dir <- tempfile("validation_from_path")
#  validate_gtfs(data_path, path_output_dir, latest_validator)
#  list.files(path_output_dir)

## ----echo = FALSE-------------------------------------------------------------
#  knitr::include_graphics("../man/figures/html_validation_report.png")

## -----------------------------------------------------------------------------
#  gtfs_url <- "https://github.com/ipeaGIT/gtfstools/raw/master/inst/extdata/spo_gtfs.zip"
#  gtfs <- read_gtfs(data_path)
#  
#  url_output_dir <- tempfile("validation_from_url")
#  validate_gtfs(gtfs_url, url_output_dir, latest_validator)
#  
#  object_output_dir <- tempfile("validation_from_object")
#  validate_gtfs(gtfs, object_output_dir, latest_validator)
#  
#  validation_content <- function(path) {
#    report_json_path <- file.path(path, "report.json")
#    suppressWarnings(report_json_content <- readLines(report_json_path))
#    return(report_json_content)
#  }
#  
#  path_output_content <- validation_content(path_output_dir)
#  url_output_content <- validation_content(url_output_dir)
#  object_output_content <- validation_content(object_output_dir)
#  
#  identical(path_output_content, url_output_content)
#  identical(path_output_content, object_output_content)