tests/testthat/test-get_area_permits.R

In elipousson/mapbaltimore: Make maps for Baltimore City with open data

test_that("get_area_permits works", {
  permits <-
    get_area_permits(
      area = neighborhoods[1, ],
      date_range = c("2022-01-01", "2022-03-30")
    )
  expect_s3_class(
    permits,
    "sf"
  )
})