context("test-team_1")
t1 <- team_1(paste(getwd(),"/../../data_raw/gadm36_AUS_shp/gadm36_AUS_1.shp",sep = ""),0.2)
test_that("team_1 function works", {
expect_error(team_1(paste(getwd(),"/../../data_raw/gadm36_AUS_shp/gadm36_AUS_1.shp",sep = ""),0.2, 0.1))
expect_error(team_1(paste(getwd(),"/../../data_raw/gadm36_AUS_shp/gadm36_AUS_1.shx",sep = "")))
expect_true(is.list(t1))
expect_true(is.data.frame(t1$polygon))
expect_true(is.vector(t1$country))
expect_true(is.vector(t1$state))
expect_true(is.vector(t1$polygon$group))
expect_true(is.numeric(t1$polygon$long))
expect_true(is.numeric(t1$polygon$lat))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.