tests/testthat/test-1-lesy.R

In jlacko/RCzechia: Spatial Objects of the Czech Republic

library(dplyr)
library(httr)

test_that("lesy", {

  skip_on_cran()

  Sys.setenv("NETWORK_UP" = FALSE)
  expect_message(lesy(), "internet") # zpráva o chybějícím internetu
  Sys.setenv("NETWORK_UP" = TRUE)

  expect_true(is.data.frame(lesy()))

  expect_s3_class(lesy(), "sf")

  expect_equal(nrow(lesy()), 2366)

  expect_equal(st_crs(lesy())$input, "EPSG:4326")

  expect_true(all(st_is_valid(lesy())))

  expect_true(all(st_geometry_type(lesy()) %in% c("POLYGON")))

  # sloupce se nerozbily...
  expect_equal(colnames(lesy()), c("geometry"))
})