tests/testthat/test-df_to_sf.R

In elipousson/overedge: Assorted Functions For Easier Map Making

test_that("df_to_sf works", {
  nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"))
  nc_df <- sf_to_df(nc)
  nc_sf <- df_to_sf(x = nc_df, coords = c("lon", "lat"))
  expect_s3_class(nc_sf, "sf")
  nc_df$xy <- paste(nc_df$lon, nc_df$lat, sep = ",")
  nc_sf_xy <- df_to_sf(nc_df, coords = "xy", into = c("lon", "lat"))
  expect_equal(sf::st_bbox(nc_sf), sf::st_bbox(nc_sf_xy))
})