From 65514acfb6ce9daafbe7248f7d7036e2c7cb74ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Briatte?= <briatte@gmail.com>
Date: Thu, 27 Apr 2023 02:42:55 +0200
Subject: [PATCH] do not check <!-- commented out--> URLs

---
 check.r | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/check.r b/check.r
index dc2f472..7cb9435 100755
--- a/check.r
+++ b/check.r
@@ -27,6 +27,9 @@ if (!file.exists(f)) {
     str_split("\\n") %>% # so as to find [foo]: bar links
     unlist()
 
+  # remove links that have been commented out
+  u <- str_remove_all(u, "<!--.*?-->")
+
   # total number of links (made to match web.archive.org links only once)
   t <- sum(str_count(u, "(?<!/)http"))
 
@@ -101,7 +104,8 @@ for (i in l) {
 }
 
 sink(f, append = TRUE)
-cat(as.character(Sys.time()), ": done.\n")
+f <- sum(str_count(stringi::stri_read_lines(f), "^http"))
+cat(as.character(Sys.time()), ": done,", f, "errors.\n")
 sink()
 
-cat("\n", sum(str_count(stringi::stri_read_lines(f), "^http")), "problems\n")
+cat("\n", f, "errors\n")