tests/testthat/test-get_shapes.R

test_that("download shape files", {

  data(austria)
  url <- "https://geodata.ucdavis.edu/gadm/gadm3.6/shp/gadm36_AUT_shp.zip"
  aut <- get_shapes(url=url, level=0)
  aut <- thin(aut, .001)
  expect_equal(aut, austria) # fails right now because the versions are different
})
Stat585-at-ISU/worldle documentation built on April 4, 2023, 5:45 a.m.