Nothing
test_that("any_is_na_linter skips allowed usages", {
linter <- any_is_na_linter()
expect_lint("x <- any(y)", NULL, linter)
expect_lint("y <- is.na(z)", NULL, linter)
# extended usage of ... arguments to any is not covered
expect_lint("any(is.na(y), b)", NULL, linter)
expect_lint("any(b, is.na(y))", NULL, linter)
# negation shouldn't list
expect_lint("any(!is.na(x))", NULL, linter)
expect_lint("any(!is.na(foo(x)))", NULL, linter)
})
test_that("any_is_na_linter blocks simple disallowed usages", {
lint_message <- rex::rex("anyNA(x) is better than any(is.na(x)).")
expect_lint("any(is.na(x))", lint_message, any_is_na_linter())
expect_lint("any(is.na(foo(x)))", lint_message, any_is_na_linter())
# na.rm doesn't really matter for this since is.na can't return NA
expect_lint("any(is.na(x), na.rm = TRUE)", lint_message, any_is_na_linter())
# also catch nested usage
expect_lint("foo(any(is.na(x)))", lint_message, any_is_na_linter())
})
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.