test_that("sweep_for_stations returns correct default", {
DT <- sweep_for_stations()
expect_equal(DT$name[1], "CANBERRA AIRPORT")
expect_equal(data.table::last(DT$name), "MAWSON")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.