Nothing
testthat::skip_on_cran()
# assign_max_street_time -----------------------------------------------------
test_that("assign_max_street_time adequately raises warnings and errors", {
expect_error(assign_max_walk_distance("1000", 3.6, 60L, "walk"))
expect_error(assign_max_walk_distance(1000, "3.6", 60L, "walk"))
expect_error(assign_max_walk_distance(0, 3.6, 60L, "walk"))
expect_error(assign_max_walk_distance(-3, 3.6, 60L, "walk"))
# expect_error(assign_max_walk_distance(3700, 3.6, "60L")) # should this fail though?
})
test_that("assign_max_street_time output is coherent", {
expect_equal(assign_max_street_time(Inf, 3.6, 60L, "walk"), 60L)
expect_equal(assign_max_street_time(30, 3.6, 60L, "walk"), 30L)
expect_equal(assign_max_street_time(Inf, 3.6, 60L, "bike"), 60L)
expect_equal(assign_max_street_time(30, 3.6, 60L, "bike"), 30L)
})
# assign_departure ---------------------------------------------------------
test_that("assign_departure adequately raises warnings and errors", {
datetime <- as.POSIXct("13-03-2019 14:00:00", format = "%d-%m-%Y %H:%M:%S")
expect_error(assign_departure(as.character(datetime)))
expect_error(assign_departure(as.integer(datetime)))
})
test_that("assign_departure output is coherent", {
datetime <- as.POSIXct("13-03-2019 14:00:00", format = "%d-%m-%Y %H:%M:%S")
datetime <- assign_departure(datetime)
expect_equal(datetime$date, "2019-03-13")
expect_equal(datetime$time, "14:00:00")
datetime <- as.POSIXct("13-03-1919 2:00:00 pm", format = "%d-%m-%Y %I:%M:%S %p")
datetime <- assign_departure(datetime)
expect_equal(datetime$date, "1919-03-13")
expect_equal(datetime$time, "14:00:00")
})
# assign_points_input -----------------------------------------------------
sf_points <- sf::st_as_sf(points, coords = c("lon", "lat"), crs = 4326)
test_that("assign_points_input adequately raises warnings and errors", {
# object class
multipoint_points <- sf::st_cast(
sf::st_as_sf(points, coords = c("lon", "lat"), crs = 4326),
"MULTIPOINT"
)
list_points <- setNames(
lapply(names(points), function(i) points[[i]]),
names(points)
)
expect_error(assign_points_input(as.matrix(points), "points"))
expect_error(assign_points_input(list_points, "points"))
expect_error(assign_points_input(multipoint_points, "points"))
# object columns types
points_numeric_id <- data.table::setDT(data.table::copy(points))[, id := 1:.N]
points_char_lat <- data.table::setDT(data.table::copy(points))[
,
lat := as.character(lat)
]
points_char_lon <- data.table::setDT(data.table::copy(points))[
,
lon := as.character(lon)
]
expect_warning(assign_points_input(points_numeric_id, "points"))
expect_error(assign_points_input(points_char_lat, "points"))
expect_error(assign_points_input(points_char_lon, "points"))
# object crs
wrong_crs_sf <- sf::st_transform(sf_points, 4674)
expect_error(assign_points_input(wrong_crs_sf, "points"))
})
test_that("assign_points_input output is coherent", {
sf_points_output <- assign_points_input(sf_points, "points")
df_points_output <- assign_points_input(points, "points")
# correct output column types
expect_type(sf_points_output$id, "character")
expect_type(sf_points_output$lat, "double")
expect_type(sf_points_output$lon, "double")
expect_type(df_points_output$id, "character")
expect_type(df_points_output$lat, "double")
expect_type(df_points_output$lon, "double")
# expect output columns to have the same value, irrespective of input class
expect_equal(sf_points_output$id, points$id)
expect_equal(sf_points_output$id, df_points_output$id)
expect_equal(sf_points_output$lat, points$lat)
expect_equal(sf_points_output$lat, df_points_output$lat)
expect_equal(sf_points_output$lon, points$lon)
expect_equal(sf_points_output$lon, df_points_output$lon)
})
# assign_decay_function -----------------------------------------------------
test_that("assign_decay_function adequately raises warnings and errors", {
expect_error(assign_decay_function(decay_function='step', decay_value=4))
expect_error(assign_decay_function(decay_function='step', decay_value='bananas'))
expect_error(assign_decay_function(decay_function='bananas', decay_value=4))
expect_error(assign_decay_function(decay_function= 444, decay_value=4))
expect_error(assign_decay_function(decay_function= 'logistic', decay_value=0.4))
})
test_that("assign_decay_function expected behavior", {
expect_equal(class(assign_decay_function(decay_function='step', decay_value=NULL)), 'list')
})
# fileurl_from_metadata --------------------------------------------------
test_that("raises error if version is not a string", {
expect_error(fileurl_from_metadata(version = 6))
})
test_that("returns expected result", {
expect_equal("https://github.com/ipeaGIT/r5/releases/download/v6.4/r5-v6.4-all.jar", fileurl_from_metadata("6.4.0"))
})
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.