tests/testthat/test-system_file_linter.R

In lintr: A 'Linter' for R Code

test_that("system_file_linter skips allowed usages", {
  expect_lint("system.file('a', 'b', 'c')", NULL, system_file_linter())
  expect_lint("file.path('a', 'b', 'c')", NULL, system_file_linter())
})

test_that("system_file_linter blocks simple disallowed usages", {
  expect_lint(
    "system.file(file.path('path', 'to', 'data'), package = 'foo')",
    rex::rex("Use the `...` argument of system.file() to expand paths"),
    system_file_linter()
  )

  expect_lint(
    "file.path(system.file(package = 'foo'), 'path', 'to', 'data')",
    rex::rex("Use the `...` argument of system.file() to expand paths"),
    system_file_linter()
  )
})