Nothing
context("errorlocation")
describe("errorlocation",{
it("can print",{
rules <- validator(x > 1)
data <- data.frame(x = 1:2, y=c(2,NA))
el <- locate_errors(data, rules)
expect_output_file(print(el), "test-errorlocation-print.txt", update=FALSE)
expect_equal(el$errors, values(el))
})
it("can do a summary",{
rules <- validator(x > 1)
data <- data.frame(x = 1:2, y=c(2,NA))
el <- locate_errors(data, rules)
el_s <- summary(el)
expect_output_file(print(el_s), "test-errorlocation-summary.txt", update=FALSE)
expect_equivalent(as.integer(el_s$record_errors), c(1,1))
expect_equivalent(as.integer(el_s$record_missing), c(1,1))
})
it("has errors_removed", {
rules <- validator(x > 1)
data <- data.frame(x = 1:2, y=c(2,NA))
data_clean <- replace_errors(data, rules)
el <- errors_removed(data_clean)
el_s <- summary(el)
expect_output_file(print(el_s), "test-errorlocation-summary.txt", update=FALSE)
})
it ("has collected info on duration and status",{
rules <- validator( x > 1)
d <- data.frame( x = c(0,1,2,-1))
N <- nrow(d)
el <- locate_errors(d, rules, Ncpus = 1)
expect_equal(length(el$duration), N)
expect_true(el$duration[3] == 0)
expect_equal(length(el$duration), N)
expect_true(all(el$status == 0))
rules <- validator( x > 1, x < -1)
d <- data.frame( x = 0 )
expect_warning({
el <- locate_errors(d, rules)
})
expect_equal(el$status, 2)
})
})
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.