tests/testthat/test_get_king_pit.R
In laurelboyd/craggy_2019: Housing Data and Eviction Data for King County, Washington, United States
library(testthat)
TOLERANCE = 0.0001
EXPECTED_MAX_YEAR <- 2018
EXPECTED_MIN_YEAR <- 2007
context("getting PIT for King County")
test_that("data set has the expected years", {
pit <- get_king_pit()
expect_equal(max(pit$year), EXPECTED_MAX_YEAR)
expect_equal(min(pit$year), EXPECTED_MIN_YEAR)
actual_n_rows = dim(pit)[1]
expect_equal(actual_n_rows, EXPECTED_MAX_YEAR - EXPECTED_MIN_YEAR + 1)
})
laurelboyd/craggy_2019 documentation built on Nov. 4, 2019, 4:17 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(testthat)
TOLERANCE = 0.0001
EXPECTED_MAX_YEAR <- 2018
EXPECTED_MIN_YEAR <- 2007
context("getting PIT for King County")
test_that("data set has the expected years", {
pit <- get_king_pit()
expect_equal(max(pit$year), EXPECTED_MAX_YEAR)
expect_equal(min(pit$year), EXPECTED_MIN_YEAR)
actual_n_rows = dim(pit)[1]
expect_equal(actual_n_rows, EXPECTED_MAX_YEAR - EXPECTED_MIN_YEAR + 1)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.