Nothing
test_that("Test bbox", {
img <- system.file("img/UK_flag.png", package = "rasterpic")
x <- sf::st_read(system.file("gpkg/UK.gpkg", package = "rasterpic"),
quiet = TRUE
)
x <- sf::st_bbox(x)
expect_s3_class(x, "bbox")
expect_message(rasterpic_img(x, img), "'crs' is NA")
raster <- rasterpic_img(x, img)
expect_true(terra::crs(raster) == "")
png_dim <- png::readPNG(img)
expect_equal(asp_ratio(raster), dim(png_dim)[2] / dim(png_dim)[1])
# Same y coords
expect_true(terra::ymin(raster) == x[2])
expect_true(terra::ymax(raster) == x[4])
# Different x coords
expect_true(terra::xmin(raster) < x[1])
expect_true(terra::xmax(raster) > x[3])
})
test_that("Test bbox with projs", {
img <- system.file("img/UK_flag.png", package = "rasterpic")
x <- sf::st_read(system.file("gpkg/UK.gpkg", package = "rasterpic"),
quiet = TRUE
)
x_a <- sf::st_transform(x, 25830)
crs_wkt_sf <- sf::st_crs(x_a)$wkt
x <- sf::st_bbox(x)
expect_s3_class(x, "bbox")
raster <- rasterpic_img(x, img, crs = crs_wkt_sf)
expect_false(terra::crs(raster) == "")
png_dim <- png::readPNG(img)
expect_equal(asp_ratio(raster), dim(png_dim)[2] / dim(png_dim)[1])
# Same y coords
expect_true(terra::ymin(raster) == x[2])
expect_true(terra::ymax(raster) == x[4])
# Different x coords
expect_true(terra::xmin(raster) < x[1])
expect_true(terra::xmax(raster) > x[3])
# On mask message
expect_message(rasterpic_img(x, img, crs = crs_wkt_sf, mask = TRUE))
mask <- rasterpic_img(x, img, crs = crs_wkt_sf, mask = TRUE)
expect_true(terra::ext(raster) == terra::ext(mask))
# On crop ok
crop <- rasterpic_img(x, img, crs = crs_wkt_sf, crop = TRUE)
expect_false(terra::ext(raster) == terra::ext(crop))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.