Select a report below.
IRT model dev
```{r, results=‘asis’} html_path <- “timed_subtest_variant_memo/timed_subtest_variant_comparison_memo.html” html <- paste(readLines(html_path, warn = FALSE, encoding = “UTF-8”), collapse = “”)
style <- sub(“(?s)..“,”\1”, html, perl = TRUE) main <- sub(“(?s).
(.*?)
.“,”\1”, html, perl = TRUE) lightbox_script <- sub(“(?s).
(.*)
.*“,”\1”, html, perl = TRUE)
The memo is now rendered inside the Quarto page, so asset paths are relative
to the Quarto output page rather than to the memo HTML file.
main <- gsub(‘src=“figures/’, ‘src=“timed_subtest_variant_memo/figures/’, main, fixed = TRUE) lightbox_script <- gsub(‘src=“figures/’, ‘src=“timed_subtest_variant_memo/figures/’, lightbox_script, fixed = TRUE)
cat(“”) cat(“
“) cat(main) cat(”
“) cat(lightbox_script) ```