tests/testthat/test-gen_polygon.R

test_that("polygons can be generated", {

  poly <- suppressWarnings(gen_polygon(LETTERS[1:4]))
  expect_equal(dim(poly), c(4, 2))

})

Try the epikit package in your browser

Any scripts or data that you put into this service are public.

epikit documentation built on Feb. 16, 2023, 7:42 p.m.