Nothing
test_that("can detect presence vs absence names", {
expect_identical(has_name(list("foo", "bar")), c(FALSE, FALSE))
expect_identical(has_name(list(a = "foo", "bar")), c(TRUE, FALSE))
expect_identical(has_name({
x <- list("foo", "bar")
names(x)[1] <- "a"
x
}), c(TRUE, FALSE))
expect_identical(has_name({
x <- list("foo", "bar")
names(x)[1] <- "a"
names(x)[2] <- ""
x
}), c(TRUE, FALSE))
expect_identical(has_name({
x <- list("foo", "bar")
names(x)[1] <- ""
x
}), c(FALSE, FALSE))
expect_identical(has_name({
x <- list("foo", "bar")
names(x)[1] <- ""
names(x)[2] <- ""
x
}), c(FALSE, FALSE))
})
test_that("named NULL is dropped", {
tcs <- list(
list(list(), list()),
list(list(a = 1), list(a = 1)),
list(list(NULL), list(NULL)),
list(list(a = NULL), list()),
list(list(NULL, a = NULL, 1), list(NULL, 1)),
list(list(a = NULL, b = 1, 5), list(b = 1, 5))
)
for (tc in tcs) {
expect_identical(
drop_named_nulls(tc[[1]]),
tc[[2]],
info = tc
)
}
})
test_that("named NA is error", {
goodtcs <- list(
list(),
list(NA),
list(NA, NA_integer_, a = 1)
)
badtcs <- list(
list(b = NULL, a = NA),
list(a = NA_integer_),
list(NA, c = NA_real_)
)
for (tc in goodtcs) {
expect_silent(check_named_nas(tc))
}
for (tc in badtcs) {
expect_error(check_named_nas(tc))
}
})
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.