tests/testthat/test-dataset.R

In spMaps: Europe SpatialPolygonsDataFrame Builder

# COPYRIGHT : 2016 RTE Electricity transmission network 
context("Get dataset")

test_that("getEuropeReferenceTable", {
  data <- getEuropeReferenceTable()
  expect_is(data, "data.frame")
})

test_that("getEuropeCountries", {
  data <- getEuropeCountries()
  expect_is(data, "SpatialPolygonsDataFrame")
})

test_that("getEuropeStates", {
  data <- getEuropeStates()
  expect_is(data, "SpatialPolygonsDataFrame")
})