tests/testthat/test_ne_download.R

In AndySouth/rnaturalearth: World Map Data from Natural Earth

test_that("ne_download() can download data and return the associated file when load = FALSE", {
  skip_on_cran()
  skip_if_not_installed("rnaturalearthdata")
  skip_if_not_installed("rnaturalearthhires")

  # fmt: skip
  urls <- c(
    ne_download(scale = 110L, type = "countries", category = "cultural", load = FALSE),
    ne_download(scale = 110L, type = "map_units", category = "cultural", load = FALSE),
    ne_download(scale = 110L, type = "sovereignty", category = "cultural", load = FALSE),
    ne_download(scale = 50L, type = "countries", category = "cultural", load = FALSE),
    ne_download(scale = 10L, type = "countries", category = "cultural", load = FALSE),
    ne_download(scale = 10L, type = "map_units", category = "cultural", load = FALSE),
    ne_download(scale = 10L, type = "sovereignty", category = "cultural", load = FALSE),
    ne_download(scale = 10L, type = "coastline", category = "physical", load = FALSE),
    ne_download(scale = 10, type = "parks_and_protected_lands_line", category = "cultural", load = FALSE),
    ne_download(scale = 10, type = "parks_and_protected_lands_point", category = "cultural", load = FALSE),
    ne_download(scale = 10, type = "parks_and_protected_lands_scale_rank", category = "cultural", load = FALSE),
    ne_download(scale = 110L, type = "countries", category = "cultural", load = FALSE, returnclass = "sv"),
    ne_download(scale = 10, type = "parks_and_protected_lands_scale_rank", category = "cultural", load = FALSE, returnclass = "sv"),
    ne_download(scale = 50L, type = "MSR_50M", category = "raster", load = FALSE)
  )

  expect_true(all(file.exists(urls)))
})