context("Vector Operations - Crop vector")
testthat::test_that("Test On polygons extraction", {
# skip_on_cran()
skip_on_travis()
library(sprawl.data)
in_polys <- read_vect(system.file("extdata","lc_polys.shp", package = "sprawl.data"), stringsAsFactors = T)
in_rast <- get(load(system.file("extdata", "sprawl_EVItest.RData", package = "sprawl.data")))
cropped_vect <- crop_vect(in_polys, in_rast)
expect_is(cropped_vect, "sf")
# check errors in input selbands
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.