process the language name after putting together all help pages

R/package.R

@@ -307,8 +307,6 @@ pkg_manual = function(
       }, finally = close(con))
     # extract body, which may end at </main> (R 4.4.x) or </div></body> (R 4.3.x)
     txt = gsub('.*?(<h2[ |>].*)(</main>|</div>\\s*</body>).*', '\\1', one_string(txt))
-    # fix https://github.com/yihui/litedown/issues/52
-    txt = gsub("code class='language-R'", "code class='language-r'", txt, fixed = TRUE)
     # free math from <code>
     txt = gsub(r2, '<p>$$\\1$$</p>', txt)
     txt = gsub(r1, '\\\\(\\1\\\\)', txt)
@@ -341,6 +339,7 @@ pkg_manual = function(
   res = gsub('(<code[^>]*>)\\s+', '\\1', res)
   res = gsub('\\s+(</code>)', '\\1', res)
   res = gsub('<div class="sourceCode"><pre>(.+?)</pre></div>', '<pre><code>\\1</code></pre>', res)
+  res = gsub('<code class="language-R"', '<code class="language-r"', res, fixed = TRUE)
   res = gsub('&#8288;', '', res, fixed = TRUE)
   res = gsub('<table>', '<table class="table-full">', res, fixed = TRUE)