tests/testthat/test_polyfill.R

In crazycapivara/h3forr: An R Interface to H3

context("polyfill")

test_that("matrix and data frame", {
  # Prepare
  polygon <- greater_manchester
  resolution <- 5

  # Act
  h3_indexes <- polyfill(polygon, resolution)
  h3_indexes2 <- polyfill(as.data.frame(polygon), resolution)

  # Assert
  expect_length(h3_indexes, 4)
  expect_is(h3_indexes, "character")
  expect_equal(h3_indexes, h3_indexes2)
})

test_that("sf object", {
  # Prepare
  nc <- system.file("shape/nc.shp", package = "sf") %>%
    sf::st_read(quiet = TRUE)
  resolution <- 5

  # Act
  h3_index_list <- polyfill(nc[1:2, ], resolution)
  h3_indexes <- unlist(h3_index_list)
  h3_indexes2 <- polyfill(nc[1, ], resolution)

  # Assert
  expect_is(h3_index_list, "list")
  expect_is(h3_indexes2, "character")
  expect_length(h3_indexes, 6)
  expect_equal(h3_index_list[[1]], h3_indexes2)
})