setup.R
In r5r: Rapid Realistic Routing with 'R5'

testthat::skip_on_cran()

options(java.parameters = "-Xmx2G")

if (Sys.getenv("NOT_CRAN") != "false") {
  data_path <- system.file("extdata/poa", package = "r5r")
  r5r_core <- setup_r5(data_path, verbose = FALSE)
  points <- data.table::fread(file.path(data_path, "poa_hexgrid.csv"))
  pois <- data.table::fread(file.path(data_path, "poa_points_of_interest.csv"))
  departure_datetime <- as.POSIXct(
    "13-05-2019 14:00:00",
    format = "%d-%m-%Y %H:%M:%S"
  )
  fare_structure <- read_fare_structure(
    system.file("extdata/poa/fares/fares_poa.zip", package = "r5r")
  )

  spo_path <- system.file("extdata/spo", package = "r5r")
  spo_core <- setup_r5(spo_path, verbose = FALSE)
  spo_points <- data.table::fread(file.path(spo_path, "spo_hexgrid.csv"))
  spo_points[, opportunities := 1]
  spo_fare_struc <- setup_fare_structure(spo_core, 5)
  spo_fare_struc$fares_per_transfer <- data.table::data.table(NULL)
}