tests/testthat/test-chas.R

In etam4260/rhud: A R interface for accessing HUD (US Department of Housing and Urban Development) APIs

test_that("hud_chas() for Nation, State, County, MCD and Places", {
  skip_if_no_key()

  # Nation
  n <- hud_chas(1)
  expect_true(nrow(n) >= 1)

  # State
  s <- hud_chas("2", state_id = "56")

  expect_true(length(s) == 132)
  expect_true(nrow(s) == 1)
  # County

  c <- hud_chas("3", "51", "199")

  expect_true(length(c) == 132)
  expect_true(nrow(c) == 1)

  # MCD
  mcd <- hud_chas("4", "51", 94087)
  expect_true(nrow(mcd) >= 1)
  expect_true(length(mcd) == 132)

  # place
  city <- hud_chas("5", "51", 48996)
  expect_true(length(city) == 132)
  expect_true(nrow(city) >= 1)
})

test_that("hud_chas() for Different Years", {
  skip_if_no_key()
  # Only checking entire Nation CHAS and varying different year inputs.

  # 2014-2018
  # 2013-2017
  # 2012-2016
  # 2011-2015
  # 2010-2014
  # 2009-2013
  # 2008-2012
  # 2007-2011
  # 2006-2010

  y1 <- hud_chas(1, year = c("2014-2018", "2013-2017"))
  expect_true(length(y1) == 132)
  expect_true(nrow(y1) >= 1)

  y2 <- hud_chas(1, year = c("2013-2017"))
  expect_true(length(y2) == 132)
  expect_true(nrow(y2) >= 1)

  y3 <- hud_chas(1, year = c("2008-2012", "2007-2011", "2014-2018"))
  expect_true(length(y3) == 132)
  expect_true(nrow(y3) >= 1)

  y4 <- hud_chas(1, year = c("2012-2016", "2007-2011"))
  expect_true(length(y4) == 132)
  expect_true(nrow(y4) >= 1)

  y5 <- hud_chas(1, year = c("2014-2018", "2013-2017"))
  expect_true(length(y5) == 132)
  expect_true(nrow(y5) >= 1)
})