1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
test_that("epub_book() correctly renders math without warning", {
skip_on_cran()
skip_if_not_pandoc()
skip_if_not_installed("jsonlite")
book <- local_book()
# add complex math
xfun::in_dir(
book,
xfun::write_utf8(c(
"# Methods",
"",
"Inserting Math",
"",
"$$",
"SE = \\sqrt(\\frac{p(1-p)}{n}) \\approx \\sqrt{\\frac{1/3 (1 - 1/3)} {300}} = 0.027",
"$$"
), "03-Methods.Rmd")
)
file.create(tmp_file <- withr::local_tempfile(pattern = "pandoc", fileext = ".log"))
res <- .render_book_quiet(book, output_format = epub_book(pandoc_args = c(sprintf("--log=%s", tmp_file), "--quiet")))
expect_false("CouldNotConvertTeXMath" %in% jsonlite::fromJSON(tmp_file)$type)
})
|
