tests/testthat/test-readshape.R

In IREA-CNR-MI/sprawl: sprawl: Spatial Processing (in) R: Advanced Workflows Library

context("Reading a Shapefile")
testthat::test_that("Test read_vect", {
  # skip_on_cran()
  skip_on_travis()
  library(sprawl.data)
  # open a shapefile as a `sf` object
  shp_file <- system.file("extdata","lc_polys.shp", package = "sprawl.data")
  shp      <- read_vect(shp_file)
  testthat::expect_true(inherits(shp, "sf"))
  # open a shapefile as a `sp` object
  shp      <- read_vect(shp_file, as_sp = TRUE)
  testthat::expect_true(inherits(shp, "SpatialPolygonsDataFrame"))

  # Try opening any other file
  testthat::expect_error(read_vect(tempfile(fileext = ".shp"), as_sp = TRUE))
})