tests/testthat/test-get_area_requests.R

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

test_that("get_area_requests works", {
  requests <-
    get_area_requests(
      area = neighborhoods[1, ],
      date_range = c("2022-01-01", "2022-01-15"),
      agency = "Solid Waste"
    )
  expect_s3_class(
    requests,
    "sf"
  )
})