Nothing
context("as.data.frame")
test_that("as.data.frame converts search results to data frame", {
oakland_public_df <- as.data.frame(oakland_public)
expect_is(oakland_public_df, "data.frame")
expect_equal(nrow(oakland_public_df), length(oakland_public$features))
})
test_that("as.data.frame converts isochrone results to sf", {
marina_walks_df <- as.data.frame(marina_walks)
expect_is(marina_walks_df, "data.frame")
expect_equal(length(unique(marina_walks_df$contour)), length(marina_walks$features))
num_features <- vapply(marina_walks$features, function(x) length(x$geometry$coordinates), FUN.VALUE = integer(1))
num_features <- sum(num_features)
expect_equal(nrow(marina_walks_df), num_features)
})
test_that("as.data.frame errors on empty search results", {
empty_search <- oakland_public
empty_search$features <- list()
expect_error(as.data.frame(empty_search), "no data")
})
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.