Nothing
context("test-latlon2sa.R")
test_that("Example works", {
expect_equal(as.character(latlon2SA(-35.3, 149.2, to = "STE", yr = "2016")),
"Australian Capital Territory")
})
test_that("Multiple", {
lat <- c(-36.069, -35.3)
lon <- c(146.9509 , 149.2)
expect_equal(as.character(latlon2SA(lat, lon, to = "STE", yr = "2016")),
c("New South Wales", "Australian Capital Territory"))
})
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.