Nothing
test_that("missing_package_linter skips allowed usages", {
linter <- missing_package_linter()
lint_msg <- list(message = rex::rex("Package 'statts' is not installed."))
expect_lint("library(stats)", NULL, linter)
expect_lint('library("stats")', NULL, linter)
expect_lint("library('stats')", NULL, linter)
expect_lint("library(`stats`)", NULL, linter)
expect_lint("library(stats, quietly)", NULL, linter)
expect_lint("library(stats, quietly = TRUE)", NULL, linter)
expect_lint("require(stats)", NULL, linter)
expect_lint("require(stats, quietly = TRUE)", NULL, linter)
expect_lint('loadNamespace("stats")', NULL, linter)
expect_lint('requireNamespace("stats")', NULL, linter)
})
test_that("missing_package_linter blocks disallowed usages", {
linter <- missing_package_linter()
lint_msg <- list(message = rex::rex("Package 'statts' is not installed."))
expect_lint("require(statts)", lint_msg, linter)
expect_lint("library(statts, quietly = TRUE)", lint_msg, linter)
expect_lint("library(statts, quietly = TRUE)", lint_msg, linter)
expect_lint('loadNamespace("statts")', lint_msg, linter)
expect_lint('requireNamespace("statts")', lint_msg, linter)
expect_lint(
trim_some("
library(utils)
library(statts)
"),
list(line = "library(statts)"),
linter
)
})
test_that("loadNamespace and requireNamespace allow plain symbols", {
expect_lint("loadNamespace(mypkg)", NULL, missing_package_linter())
expect_lint("requireNamespace(mypkg)", NULL, missing_package_linter())
})
test_that("character.only=TRUE case is handled", {
expect_lint("library(statts, character.only = TRUE)", NULL, missing_package_linter())
expect_lint("require(statts, character.only = TRUE)", NULL, missing_package_linter())
expect_lint('library("stats", character.only = TRUE)', NULL, missing_package_linter())
expect_lint(
'library("statts", character.only = TRUE)',
rex::rex("Package 'statts' is not installed."),
missing_package_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.