Pre-run examples in website manual

site/generate_reference.R

@@ -3,6 +3,7 @@
 
 library(tools)
 library(xml2)
+library(data.table)
 
 # Create reference directory
 ref_dir = "site/reference"
@@ -48,8 +49,23 @@ for (rd_file in rd_files) {
   out_file = file.path(ref_dir, paste0(info$name, ".html"))
 
   temp_html = tempfile(fileext = ".html")
-  Rd2HTML(rd_file, out = temp_html, package = "data.table", Links = topic_links, Links2 = character())
-  html_root = read_html(temp_html)
+  Rd2HTML(rd_file, out = temp_html, package = "data.table", Links = topic_links, Links2 = character(), Rhtml = TRUE)
+
+  # The <!--begin.rcode ... end.rcode--> blocks are unsafe to parse as HTML, as an --> inside R code would terminate the comment.
+  env = new.env()
+  html_text = readLines(temp_html)
+  begin.rcode = which(startsWith(html_text, "<!--begin.rcode"))
+  end.rcode = which(html_text == "end.rcode-->")
+  stopifnot(length(begin.rcode) == length(end.rcode), begin.rcode < end.rcode)
+  for (i in seq_along(begin.rcode)) {
+    text = html_text[begin.rcode[i]:end.rcode[i]]
+    text[1] = sub('^<!--begin[.]rcode(.*)', '```{r}\n#| \\1', text[1])
+    text[length(text)] = '```'
+    html_text[begin.rcode[i]] = litedown::fuse(text = text, envir = env)
+    html_text[(begin.rcode[i]+1):end.rcode[i]] = ""
+  }
+
+  html_root = read_html(paste(html_text, collapse = '\n'))
 
   if (!is.null(html_meta$lang))
     xml_attr(html_root, 'lang') = html_meta$lang