From 12d1476b15d7511cd548d1d5a48bf5cba4657bcf Mon Sep 17 00:00:00 2001
From: "Pavel N. Krivitsky" <p.krivitsky@unsw.edu.au>
Date: Fri, 30 Sep 2022 16:03:48 +1000
Subject: [PATCH] HTML term index table now creates one id= per cell rather
 than per term, fixing an HTML tidy warning.

---
 DESCRIPTION          | 4 ++--
 R/ergm-terms-index.R | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index ea8c793cc..6e2835451 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm
-Version: 4.3-7009
-Date: 2022-09-10
+Version: 4.3-7049
+Date: 2022-09-30
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Networks
 Authors@R: c(
              person("Mark S.", "Handcock", role=c("aut"), email="handcock@stat.ucla.edu"),
diff --git a/R/ergm-terms-index.R b/R/ergm-terms-index.R
index e2f6aba18..6ad2cc74a 100644
--- a/R/ergm-terms-index.R
+++ b/R/ergm-terms-index.R
@@ -518,7 +518,10 @@ PROPOSAL_NOT_IN_TABLE <- "This proposal is not referenced in the lookup table."
   # \link[=absdiff-ergmTerm]{test} and check that it works with \out{<a href="../help/absdiff-ergmTerm">test</a>}.
   # This address may change from an upstream R-studio change
 
-  df$Term <- sprintf(gsub('`([^`(]*)([^`]*)`', '<span class="code"><a href="../help/%1$s" id="%1$s">\\1\\2</a></span>', .fsub(df$Term, '\n', '<br />\n')), df$Link)
+  df$Term %<>% .fsub('\n', '<br />\n') %>%
+    gsub('`([^`(]*)([^`]*)`', '<span class="code"><a href="../help/%1$s">\\1\\2</a></span>', .) %>%
+    sprintf(df$Link) %>%
+    sprintf('<div id="%s">%s</div>', df$Link, .)
   df$Link <- NULL
 
   css <- '<style>.striped th,.striped td {padding:3px 10px} .striped tbody tr:nth-child(odd) {background: #eee} .striped .code {font-family: monospace} .matrix td {align: center} .matrix th,.matrix td {padding-right:5px; width: 75px}</style>'