Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@84762 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Jul 27, 2023 · eb8a603 · eb8a603
1 parent 28fc951
commit eb8a603
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/library/tools/R/toHTML.R b/src/library/tools/R/toHTML.R
@@ -326,9 +326,9 @@ function(x, header = TRUE, ...)
  ## (octal \000 to \037 and \177 to \237).
  ## Replace these by hex bytes.
  s <- .replace_chars_by_hex_subs(s, invalid_HTML_chars_re)
- s <- gsub("&", "&amp;", s, fixed = TRUE)
- s <- gsub("<", "&lt;", s, fixed = TRUE)
- s <- gsub(">", "&gt;", s, fixed = TRUE)
+ s <- fsub("&", "&amp;", s)
+ s <- fsub("<", "&lt;", s)
+ s <- fsub(">", "&gt;", s)
  if(a) {
  ## Some people have <http://something> as recommended for
  ## in-text URLs.