context("sf: st_crs tests")
test_that("st_sample works", {
nc = read_sf(system.file("shape/nc.shp", package="sf"))
n = 100
sample_default = st_sample(x = nc, size = n)
expect_s3_class(sample_default, "sfc")
sample_exact = st_sample(x = nc, size = n, exact = TRUE)
expect_equal(length(sample_exact), n)
})
Generated by dwww version 1.15 on Tue Jul 2 08:21:26 CEST 2024.