Replace \url{} with \doi{} in package Rd when linking to DOI (#1297)

Fixes #1296

NEWS.md

@@ -1,5 +1,8 @@
 # roxygen2 (development version)
 
+* DOIs in the `URL` field of the `DESCRIPTION` are now converted to Rd's special
+  `\doi{}` tag (@ThierryO, #1296).
+
 * Curly braces in markdown links are now escaped (#1259).
 
 * `@inherit` and friends perform less aggressive link tweaking, eliminating

R/object-package.R

@@ -1,16 +1,21 @@
 package_seealso <- function(desc) {
+  itemize("Useful links:", package_seealso_urls(desc))
+}
+package_seealso_urls <- function(desc) {
   if (!is.null(desc$URL)) {
     links <- paste0("\\url{", strsplit(desc$URL, ",\\s+")[[1]], "}")
+    links <- gsub("\\url\\{https://doi.org/", "\\doi{", links)
   } else {
     links <- character()
   }
   if (!is.null(desc$BugReports)) {
     links <- c(links, paste0("Report bugs at \\url{", desc$BugReports, "}"))
   }
 
-  itemize("Useful links:", links)
+  links
 }
 
+
 package_authors <- function(desc) {
   authors <- tryCatch(eval(parse(text = desc$`Authors@R` %||% "")),
     error = function(e) {

tests/testthat/test-object-package.R

@@ -17,3 +17,11 @@ test_that("person turned into meaningful text", {
     person_desc(comment = c("ORCID" = "1234", "extra"))
   })
 })
+
+
+test_that("can convert DOIs in url", {
+  expect_equal(
+    package_seealso_urls(list(URL = "https://doi.org/10.5281/zenodo.1485309")),
+    "\\doi{10.5281/zenodo.1485309}"
+  )
+})