fix setup links with fragments

carpentries · Sep 22, 2023 · 70a51e9 · 70a51e9
1 parent 0572bcd
commit 70a51e9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/utils-xml.R b/R/utils-xml.R
@@ -125,7 +125,9 @@ fix_setup_link <- function(nodes = NULL) {
   setup_links <- hrefs$scheme == "" &
     hrefs$server == "" &
     hrefs$path == "setup.html"
-  xml2::xml_set_attr(links[setup_links], "href", "index.html#setup")
+  fragment <- ifelse(hrefs$fragment == "", "setup", hrefs$fragment)
+  replacement <- paste0("index.html#", fragment)
+  xml2::xml_set_attr(links[setup_links], "href", replacement)
   invisible(nodes)
 }