tests/testthat/test-format_spatial.R

In ReseauBiodiversiteQuebec/rcoleo: rcoleo

test_that("format spatial gives errors for bad inputs, correct format for good oens", {

  test <- data.frame(foo = "bar", lat = -70, longitude = 47)

  expect_error(format_spatial(dplyr::nest_by(test, foo)))

  test2 <- data.frame(foo = "bar", latitude = -70, lon = 47)

  expect_error(format_spatial(dplyr::nest_by(test2, foo)))

  test_latlon_only <- tibble::tibble(foo = "bar", lat = -70, lon = 47)

  formatted_output <- format_spatial(dplyr::rowwise(test_latlon_only, foo))

  expect_type(object = formatted_output$geom, type = "list")

  expect_equal(names(formatted_output$geom[[1]]), c("type", "coordinates"))

  })