Automatically add .lintr to .Rbuildignore by the use_lintr function

DESCRIPTION

@@ -37,6 +37,7 @@ Imports:
 Suggests:
     bookdown,
     crayon,
+    fs,
     httr (>= 1.2.1),
     jsonlite,
     mockery,
@@ -47,6 +48,7 @@ Suggests:
     testthat (>= 3.1.5),
     tibble,
     tufte,
+    usethis,
     withr (>= 2.5.0)
 Enhances:
     data.table

R/use_lintr.R

@@ -43,5 +43,14 @@ use_lintr <- function(path = ".", type = c("tidyverse", "full")) {
     )
   )
   write.dcf(the_config, config_file, width = Inf)
+
+  # If this is an R package and if available, add .lintr file to .Rbuildignore
+  if (file.exists("DESCRIPTION")) {
+    try(
+      usethis::use_build_ignore(fs::path_rel(config_file)),
+      silent = TRUE
+    )
+  }
+
   invisible(config_file)
 }

tests/testthat/test-use_lintr.R

@@ -35,3 +35,17 @@
   lints <- lint_dir(tmp)
   expect_length(lints, 0L)
 })
+
+test_that("use_lintr add .lintr to .Rbuildignore for packages", {
+  tmp <- withr::local_tempdir()
+  tmp_package_dir <- paste0(tmp, "/package")
+  package_dir <- test_path("dummy_packages", "package")
+  dir.create(tmp_package_dir)
+  file.copy(package_dir, tmp, recursive = TRUE)
+  setwd(tmp_package_dir)
+  lintr_file <- use_lintr()
+  expect_true(file.exists(lintr_file))
+
+  skip_if_not_installed("usethis")
+  expect_true("^\\.lintr$" %in% readLines(".Rbuildignore"))
+})