tests/testthat/test_stl_as_sf.R

In chris-prener/stlData: City of St. Louis Data

context("sf conversion")

# test errors ------------------------------------------------

test_that("input error trigged", {
  expect_error(stl_as_sf(stl_tbl_sluPlaces), "The given table is not available for automatic conversion to an sf object.")
})

# test conversion ------------------------------------------------

asthma <- stl_as_sf(stl_tbl_asthma)
income <- stl_as_sf(stl_tbl_income)
insurance <- stl_as_sf(stl_tbl_insurance)
lead <- stl_as_sf(stl_tbl_lead)
smoking <- stl_as_sf(stl_tbl_smoking)

test_that("data objects are converted to sf", {
  expect_is(asthma, "sf")
  expect_is(income, "sf")
  expect_is(insurance, "sf")
  expect_is(lead, "sf")
  expect_is(smoking, "sf")
})