tests/testthat/test-geom_surface.R

context("geom_surface.R")

test_that("shortest paths", {
  surface <- raster::raster( matrix(c(1,3,4,3,1,2,3,4,1,2,2,3,3,2,3,1), nrow=4) )
  p <- geom_surface( surface )   
  expect_that( p, is_a("ggproto"))
  expect_that( p, is_a("LayerInstance"))
  expect_that( p, is_a("Layer"))
})
dyerlab/gstudio documentation built on Feb. 2, 2024, 8:24 p.m.