context("population_map.R")
test_that("checking",{
# data(arapat)
# coords <- strata_coordinates(arapat)
# if( ggmap::has_google_key()) {
# map <- population_map( coords , zoom = 6 )
# if( !is.null(map) ) {
# expect_true( inherits(map,"ggmap") )
# expect_true( inherits(map,"raster") )
# }
# }
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.