tests/testthat/test-map.R

context("test-map")

test_that("map_sfc returns an `sfc`", {
  x <- list(1:2, 2:3)
  y <- map_sfc(x, ~sf::st_point(.x))
  expect_is(y, "sfc")
})
etiennebr/geotidy documentation built on Feb. 28, 2020, 4:45 a.m.