tests/testthat/test-population_map.R

In MarianaLag/Mlag: Tools Related to the Spatial Analysis of Genetic Marker Data

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") )    
  #   }
  # }
  
})