context("Sweep for forecast towns")
test_that("sweep_for_forecast_towns returns correct default", {
DT <- sweep_for_forecast_towns()
expect_named(DT, c("aac", "town", "lon", "lat", "elev", "distance"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.