tests/testthat/test-admlevels.R

In Rnightlights: Satellite Nightlight Data Extraction

library(testthat)
library(Rnightlights)

context("admLevels")

test_that("admLevel lookups work", {
  skip_if_not(internetAvailable(), "Internet not available")
  
  #ctryCodeToName
  expect_equal(Rnightlights:::getCtryPolyAdmLevelNames("STP"), c("country", "Municipality_(Concelho)", "District"), fixed=TRUE)
  expect_equal(Rnightlights:::getCtryPolyAdmLevelNames("STP", "gadm36_STP_1"), c("country", "Municipality_(Concelho)"), fixed=TRUE)
  expect_equal(Rnightlights:::getCtryShpAllAdmLvls("STP"), list(STP=c("gadm36_STP_0", "gadm36_STP_1", "gadm36_STP_2")), fixed=TRUE)
  expect_equal(unname(unlist(Rnightlights::searchAdmLevel("STP", "Municipality"))),"gadm36_STP_1", fixed=TRUE)
  expect_equal(unname(Rnightlights::searchAdmLevel("STP", "highest")),"gadm36_STP_1", fixed=TRUE)
  expect_true(Rnightlights:::allValidCtryAdmLvls("STP", c("gadm36_STP_0","gadm36_STP_1","gadm36_STP_2")))
  
  #no ctryCode
  expect_error(Rnightlights:::getCtryPolyAdmLevelNames(), "Missing required parameter ctryCode")
  
  #specify lowestAdmLevel
  expect_equal(Rnightlights:::getCtryPolyAdmLevelNames(ctryCode = "STP", lowestAdmLevel = "gadm36_STP_1"), c("country", "Municipality_(Concelho)"), fixed=TRUE)
  
  #specify already downloaded gadmVersion 
  expect_equal(Rnightlights:::getCtryPolyAdmLevelNames(ctryCode = "STP", gadmVersion = "3.6"), c("country", "Municipality_(Concelho)", "District"), fixed=TRUE)
  
  #specify mismatching gadmVersion and lowestAdmLevel
  expect_error(Rnightlights:::getCtryPolyAdmLevelNames(ctryCode = "STP", lowestAdmLevel = "gadm36_STP_1", gadmVersion = "2.8"), "Cannot open data source")
  
  #specify non-existent custPolyPath
  expect_error(Rnightlights:::getCtryPolyAdmLevelNames(custPolyPath = "unknown"), "No such file or directory")
  
})