test_that("calc_distance works", {
expect_type(calc_distance(evavelo_example_geocoded),
"list") %>%
suppressMessages()
expect_error(calc_distance(evavelo_example),
"Cannot calculate distance on evadata that is not geocoded")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.