feat: adds check for bug reports url in release_checks().

NEWS.md

@@ -1,5 +1,7 @@
 # devtools (development version)
 
+* `release_checks()` now flags when `BugReports` is missing from DESCRIPTION.
+
 # devtools 2.5.2
 
 * `install()` uses a new feature of `pak::local_install_deps()` to consider the current `.libPaths()` when resolving dependencies, instead of consulting only `.libPaths()[1]`. This was an unintended behavioral change introduced in 2.5.0 (#2691).

R/check-devtools.R

@@ -15,6 +15,7 @@ release_checks <- function(pkg = ".", built_path = NULL) {
   check_vignette_titles(pkg)
   check_news_md(pkg)
   check_remotes(pkg)
+  check_bug_reports(pkg)
 
   cli::cat_rule()
 }
@@ -125,6 +126,15 @@ has_dev_remotes <- function(pkg) {
   !is.null(pkg[["remotes"]])
 }
 
+check_bug_reports <- function(pkg = ".") {
+  pkg <- as.package(pkg)
+  check_status(
+    !is.null(pkg[["bugreports"]]),
+    "DESCRIPTION has a BugReports field",
+    "DESCRIPTION is missing a BugReports field."
+  )
+}
+
 check_status <- function(status, name, warning) {
   cat("Checking ", name, "...", sep = "")
 

tests/testthat/_snaps/check-devtools.md

@@ -0,0 +1,16 @@
+# check_bug_reports() passes when BugReports is present
+
+    Code
+      check_bug_reports(dir)
+    Output
+      Checking DESCRIPTION has a BugReports field... OK
+
+# check_bug_reports() warns when BugReports is missing
+
+    Code
+      check_bug_reports(dir)
+    Output
+      Checking DESCRIPTION has a BugReports field...
+    Message
+      x WARNING: DESCRIPTION is missing a BugReports field.
+

tests/testthat/test-check-devtools.R

@@ -0,0 +1,14 @@
+test_that("check_bug_reports() passes when BugReports is present", {
+  dir <- local_package_create()
+  desc::desc_set(
+    "BugReports",
+    "https://github.com/example/pkg/issues",
+    file = dir
+  )
+  expect_snapshot(check_bug_reports(dir))
+})
+
+test_that("check_bug_reports() warns when BugReports is missing", {
+  dir <- local_package_create()
+  expect_snapshot(check_bug_reports(dir))
+})