Ignore httpd() errors for HTML validation.

git-svn-id: https://svn.r-project.org/R/trunk@84776 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Jul 28, 2023 · f364c59 · f364c59
1 parent 2a95adb
commit f364c59
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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"))