context("CoordinateProvider works")
test_that("CoordinateProvider works", {
aa <- CoordinateProvider$new()
expect_is(aa, "CoordinateProvider")
expect_is(aa, "R6")
expect_is(aa$lat, "function")
expect_is(aa$lat(), "numeric")
expect_equal(length(aa$lat()), 1)
expect_lte(abs(aa$lat()), 90)
expect_is(aa$lon, "function")
expect_is(aa$lon(), "numeric")
expect_equal(length(aa$lon()), 1)
expect_lte(abs(aa$lon()), 180)
expect_is(aa$position, "function")
expect_is(aa$position(), "numeric")
expect_equal(length(aa$position()), 2)
expect_lte(abs(aa$lon()), 180)
})
context("ch_lon fxn")
test_that("ch_lon works", {
expect_is(ch_lon(), "numeric")
expect_equal(length(ch_lon(3)), 3)
})
context("ch_lat fxn")
test_that("ch_lat works", {
expect_is(ch_lat(), "numeric")
expect_equal(length(ch_lat(10)), 10)
})
context("ch_position fxn")
test_that("ch_position fxn works", {
expect_is(ch_position(), "numeric")
expect_is(ch_position(30), "list")
expect_is(unlist(ch_position(30)), "numeric")
expect_equal(length(ch_position(30)), 30)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.