Nothing
if (identical(Sys.getenv("NOT_CRAN"), "true")) {
# ---------------------------------------------------------------------------- #
# ---- Define values if they haven't already been defined by another test ---- #
# ---------------------------------------------------------------------------- #
if (!exists("all_routes")) {
all_routes <- routes()
}
if (!exists("frankston_route_id")) {
frankston_route_id <- all_routes %>%
dplyr::filter(route_name == "Frankston") %>%
pull(route_id)
}
# ---------------------------------------------------------------------------- #
# Testing directions_on_route
# Simply running this functions asserts that column names, etc. are as expected
frankston_directions_on_route <- directions_on_route(
route_id = frankston_route_id
)
test_that("directions_on_route result has class \"ptvapi\"", {
expect_s3_class(frankston_directions_on_route, "ptvapi")
})
city_directions <- frankston_directions_on_route %>%
filter(grepl("City", direction_name, ignore.case = TRUE))
test_that("Frankston train goes to the city", {
expect_equal(nrow(city_directions), 1)
})
frankston_directions <- frankston_directions_on_route %>%
filter(grepl("Frankston", direction_name, ignore.case = TRUE))
test_that("Frankston train goes to the city", {
expect_equal(nrow(frankston_directions), 1)
})
# Testing directions
# We'll run the Frankston -> City direction from above through the directions
# function, and see if we can recover the Frankston route ID.
if (!exists("frankston_route_id")) {
frankston_route_id <- routes() %>%
dplyr::filter(route_name == "Frankston") %>%
pull(route_id)
}
recovering_frankston_direction <- city_directions$direction_id %>%
directions(direction_id = .) %>%
filter(
grepl("Frankston", route_direction_description, ignore.case = TRUE),
route_id == frankston_route_id
)
test_that("Frankston route can be recovered with directions call", {
expect_equal(nrow(recovering_frankston_direction), 1)
expect_equal(recovering_frankston_direction$route_id, frankston_route_id)
})
# Testing directions with route type
test_that("Frankstain train directions are all train routes", {
city_train_directions <- city_directions$direction_id %>%
directions(direction_id = ., route_type = "Train")
expect_true(
all(
grepl(
"train",
city_train_directions$route_direction_description,
ignore.case = TRUE
)
)
)
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.