Nothing
context("test csb_vacant")
# load test data --------------------------------
data(january_2018, package = "stlcsb")
# test errors -----------------------------------
test_that("Missing input errors triggered", {
expect_error(csb_vacant(),
"Please provide an argument for .data.")
expect_error(csb_vacant(test_data),
"Please provide the name of the variable containing the problem codes for 'var'.")
expect_error(csb_vacant(test_data, newVar = vacant),
"Please provide the name of the variable containing the problem codes for 'var'.")
expect_error(csb_vacant(test_data, problemcode),
"Please provide a new variable name for 'newVar'.")
expect_error(csb_vacant(test_data, var = problemcode),
"Please provide a new variable name for 'newVar'.")
})
# test output ------------------------
test <- csb_vacant(january_2018, var = problemcode, newVar = vacant) # tests unquoted input
test_that("Logical appending works", {
expect_equal(table(test$vacant)[[1]], 1456) # not vacant / FALSE
expect_equal(table(test$vacant)[[2]], 98) # vacant / TRUE
})
testData <- data.frame(january_2018)
test2 <- csb_vacant(testData, var = "problemcode", newVar = "cat") # tests quoted input
test_that("Returns Tibble", {
expect_equal("tbl_df" %in% class(test2), TRUE)
})
# test unquoted and quoted input -----------------------------
test_that("Non-standard Evaluation works", {
expect_silent(csb_vacant(january_2018, "problemcode", newVar = "vacancy"))
expect_silent(csb_vacant(january_2018, problemcode, newVar = vacancy))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.