New URL (and DOI) checker

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2026-01-08  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/examples/checkPackageURLs.r: New script to check URLs (and DOIs)
+
 2026-01-04  Dirk Eddelbuettel  <edd@debian.org>
 
 	* .github/workflows/ci.yaml: Switch to actions/checkout@v6

inst/examples/checkPackageURLs.r

@@ -0,0 +1,28 @@
+#!/usr/bin/env r
+##
+##  A wrapper for tools::check_package_url (and check_package_dois)
+##
+##  Copyright (C) 2025 - present  Dirk Eddelbuettel
+##
+##  Released under GPL (>= 2)
+
+## load docopt package from CRAN
+library(docopt)
+
+doc <- "Usage: checkPackageUrls.r [-s] [-v] [-h] [DIRS ...]
+
+-s --skip-dois    do not run 'check_package_dois()' as well [default: FALSE]
+-v --verbose      run in verbose mode mode [default: FALSE]
+-h --help         show this help text
+
+Simple wrapper to 'tools::check_package_urls(...)'.
+"
+
+opt <- docopt(doc)
+
+if (length(opt$DIRS) == 0) opt$DIRS <- "." 	# default argument current directory
+
+for (d in opt$DIRS) {
+    tools::check_package_urls(d, isTRUE(opt$verbose))
+    if (isFALSE(opt$skip_dois)) tools::check_package_dois(d, isTRUE(opt$verbose))
+}