tests/testthat/test-quadmesh.R

sstfile <- system.file("extdata/sst.tif", package = "vapour")
lr <- lazyraster(sstfile)

test_that("quadmesh from lazyraster works", {
  expect_s3_class(quadmesh(lr), "mesh3d")
})
mdsumner/lazyraster documentation built on Sept. 8, 2021, 9:36 p.m.