diff --git a/R/utils-xml.R b/R/utils-xml.R
index a9c156d3b..25802aaaa 100644
--- a/R/utils-xml.R
+++ b/R/utils-xml.R
@@ -134,14 +134,22 @@ add_anchors <- function(nodes, ids) {
anchor <- paste0(
""
)
+
for (i in seq_along(nodes)) {
heading <- nodes[[i]]
+
if (length(xml2::xml_contents(heading)) == 0) {
# skip empty headings
next
}
+
# Insert anchor in first element of header
xml2::xml_add_child(heading, xml2::read_xml(anchor[[i]]))
+
+ # fix for pkgdown 2.1.0 now adding in anchors for tags
+ # rename our workbench translated sections
+ sections <- xml2::xml_parent(heading)
+ xml2::xml_set_name(sections, "workbench-section")
}
}