1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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))
}
|
