From f364c59aa3cbb9134810f11d20a9d4c82a8ce758 Mon Sep 17 00:00:00 2001
From: hornik <hornik@00db46b3-68df-0310-9c12-caf00c1e9a41>
Date: Fri, 28 Jul 2023 13:04:30 +0000
Subject: [PATCH] Ignore httpd() errors for HTML validation.

git-svn-id: https://svn.r-project.org/R/trunk@84776 00db46b3-68df-0310-9c12-caf00c1e9a41
---
 src/library/tools/R/htmltools.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/library/tools/R/htmltools.R b/src/library/tools/R/htmltools.R
index 9d262d7e679..cf607e48cd5 100644
--- a/src/library/tools/R/htmltools.R
+++ b/src/library/tools/R/htmltools.R
@@ -56,7 +56,10 @@ function(files, verbose = interactive()) {
 
 tidy_validate_R_httpd_path <-
 function(path) {
-    y <- httpd(path, query = NULL)
+    ## <FIXME>
+    ## What should we do if httpd() throws an error?
+    y <- tryCatch(httpd(path, query = NULL), error = identity)
+    ## </FIXME>
     if(!is.null(f <- y$file)) {
         ## Should only do this for appropriate content types
         if(is.null(y$"content-type"))