context("get_FIPS")
###############
# testing dataset that comes with the package.
data = fertilizer
# test the inputs of the function
test_that("If the county name is wake, the FIPS # is 37183",{
expect_that(get_FIPS(data = data, counties = "wake")$FIPS[1], equals("37183" ))
})
# fixed = TRUE to compare the true string value.
test_that("If the input is year, throw the error",{
expect_error(get_FIPS(data = data, years = 1990), "unused argument (years = 1990)", fixed = TRUE)
})
test_that("If county name is DeKalb, the length is 6, the third value is 17037, the 6th name
is DeKalb, TN.",{
FIPS_test = get_FIPS(data = data, counties = "DeKalb")
expect_that(length(FIPS_test$FIPS), equals(6))
expect_that(FIPS_test$FIPS[3], equals("17037"))
expect_that(FIPS_test$County[6],equals("DeKalb, TN"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.