check.r -- ignore DOIs, assume they just work

2023-04-27 00:04:30 +02:00 · 2023-04-27 00:04:30 +02:00 · dc5d1af045
parent 0db097c7a6
commit dc5d1af045
1 changed files with 3 additions and 0 deletions
--- a/check.r
+++ b/check.r
@ -59,6 +59,9 @@ l <- str_squish(sort(unique(l)))

 cat(length(l), "unique\n")

+cat("Ignoring", sum(str_detect(l, "^https://doi.org/")), "DOIs\n")
+l <- str_subset(l, "^https://doi.org/", negate = TRUE)
+
 sink(f, append = FALSE)
 cat(as.character(Sys.time()), ": checking", length(l), "URLs\n\n")
 sink()