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

This commit is contained in:
François Briatte 2023-04-27 00:04:30 +02:00
parent 0db097c7a6
commit dc5d1af045

View File

@ -59,6 +59,9 @@ l <- str_squish(sort(unique(l)))
cat(length(l), "unique\n") 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) sink(f, append = FALSE)
cat(as.character(Sys.time()), ": checking", length(l), "URLs\n\n") cat(as.character(Sys.time()), ": checking", length(l), "URLs\n\n")
sink() sink()