tests/testthat/test-mass-gis.R

context("test-mass-gis")

test_that("Mass GIS works", {
  skip_on_cran()
  elevation <- mass_gis()
  expect_is(elevation, "sf")
  expect_equal(nrow(elevation), 50395)
  expect_equal(max(elevation$CONTOUR_FT), 3360)
  
  expect_warning(macleish_elevation <- macleish_intersect(elevation), "spatially")
  
  expect_equal(nrow(macleish_elevation), 13)
})

Try the macleish package in your browser

Any scripts or data that you put into this service are public.

macleish documentation built on July 7, 2022, 1:05 a.m.