if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
library(r5r)
data_path <- system.file("extdata/poa", package = "r5r")
r5r_core <- setup_r5(data_path)
fare_structure <- setup_fare_structure(r5r_core, base_fare = 5)
tmpfile <- tempfile("sample_fare_structure", fileext = ".zip")
write_fare_structure(fare_structure, tmpfile)
}
Run the code above in your browser using DataLab