tests/testthat/setup.R

In r5rgui: Graphical User Interface for 'r5r' Router

# --- Setup a real r5r network for testing new features ---
# This is needed to test automatic bounding box calculation.
# It will be skipped if r5r is not installed anyway.

skip_on_cran()
if (requireNamespace("r5r", quietly = TRUE)) {
  data_path <- system.file("extdata/poa", package = "r5r")
  if (utils::packageVersion("r5r") >= "2.3.0") {
    r5r_net <- r5r::build_network(data_path)
  } else {
    r5r_net <- r5r::setup_r5(data_path)
  }
}