From db52942b62ff5ef615729eb658313e95b8753a6e Mon Sep 17 00:00:00 2001
From: hornik <hornik@00db46b3-68df-0310-9c12-caf00c1e9a41>
Date: Fri, 6 Sep 2024 07:41:52 +0000
Subject: [PATCH] QC hotfix for c87095.

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

diff --git a/src/library/tools/R/check.R b/src/library/tools/R/check.R
index 8dba80dfe8..21260959e1 100644
--- a/src/library/tools/R/check.R
+++ b/src/library/tools/R/check.R
@@ -1071,12 +1071,22 @@ add_dummies <- function(dir, Log)
                 y <- sapply(y, clean_up)
                 diff <- y != yorig
                 ## <FIXME>
+                ## Quick fix for consequences of c87095.
+                if(diff[1L]
+                   && grepl("<https://orcid.org/", y[1L], fixed = TRUE)) {
+                    y1 <- sub("ORCID: <https://orcid.org/",
+                              "<https://orcid.org/",
+                              y[1L], fixed = TRUE)
+                    diff[1L] <- clean_up(y1) != yorig[1L]
+                }
+                ## </FIXME>
+                ## <FIXME>
+                ## Remove eventually.
                 if(diff[1L]
                    && grepl("https://orcid.org/", y[1L], fixed = TRUE)) {
                     ## Argh.  Might be from using the new ORCID id
                     ## mechanism but having built with R < 3.5.0.
                     ## Let's ignore ...
-                    ## Remove eventually.
                     aar$comment <- lapply(aar$comment, unname)
                     y1 <- utils:::.format_authors_at_R_field_for_author(aar)
                     diff[1L] <- clean_up(y1) != yorig[1L]