tests/testthat/test-sf_to_df.R

In elipousson/overedge: Assorted Functions For Easier Map Making

test_that("sf_to_df works", {
  nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"))

  expect_s3_class(
    sf_to_df(x = nc, coords = c("lon", "lat")),
    "data.frame"
  )

  expect_error(
    sf_to_df(x = sf::st_bbox(nc), coords = c("lon", "lat")),
    "no applicable method"
  )
})