tests/testthat/test-load_RUIAN.R

In JanCaha/CzechData: Download various datasets (including spatial data) for the Czech Republic

library(glue)

ids <- c("534048", "568457", "587788", "546593", "587443")

layers <- c("adresni mista", "casti obce", "obec",
            "stavebni objekty", "ulice", "volebni okrsky", "zakladni sidelni jednotky")

for (id in ids) {
  for (layer in layers) {

    test_that(glue::glue("Load RUIAN settlement - {id} - {layer}"), {

      data <- load_RUIAN_settlement(id, layer)

      expect_s3_class(data, "data.frame")
      expect_s3_class(data, "sf")
    })
  }
}

test_that("Load cadastral data - wrong layer", {
  expect_error(load_RUIAN_settlement("534048", "spatna vrstva", "Uknown layer name (or alias)"))
})

test_that("Load cadastral data - wrong id", {
  expect_error(load_RUIAN_settlement("3722910", "adresni mista", "Variable id must follow the general pattern"))
  expect_error(load_RUIAN_settlement("599999", "adresni mista", "There is no settlement in Czech Republic"))
})

test_that("Testing that for random ids all layers are listed in package function `.settlement_RUIAN_layers()`", {
  for (id in ids) {
    files <- list.files(file.path(tempdir(), "534048"), "shp")
    files <- stringr::str_remove(files, "\\.shp")

    for (file in files){

      expect_true(file %in% .settlement_RUIAN_layers()$alias)
    }
  }
})