Nothing
local_edition(2)
test_that("install/report_latex_dependencies", {
skip_if_not_installed("tinytex")
skip_on_appveyor()
skip_on_cran() # no tlmgr, and the code uses it not just in tlmgr_install
expect_silent(packages <- report_latex_dependencies(quiet = TRUE))
packages <- vapply(packages, `[[`, character(1), "name")
packages <- setdiff(packages, c("graphicx", "calc", "array"))
with_mock(
`tinytex::tlmgr_install` = function (...) return(0),
expect_error(x <- install_latex_dependencies(), regexp = NA)
)
expect_true(x)
expect_silent(package_str <- report_latex_dependencies(quiet = TRUE,
as_string = TRUE))
expect_match(package_str, "\\\\usepackage\\{array\\}")
})
test_that("check_latex_dependencies checks adjustbox", {
skip_if_not_installed("tinytex")
# appveyor doesn't have tlmgr
skip_on_appveyor()
# nor does win-builder
skip_on_cran()
skip_on_ci()
with_mock(
"tinytex::tlmgr" = function (...) "1.0",
{
expect_warning(check_adjustbox(quiet = FALSE), "adjustbox")
expect_equivalent(check_adjustbox(), FALSE)
}
)
})
test_that("check_latex_dependencies runs correctly", {
skip_if_not_installed("tinytex")
# appveyor doesn't have tlmgr
skip_on_appveyor()
# nor does win-builder
skip_on_cran()
with_mock(
`tinytex::tl_pkgs` = function (...) return(character(0)), {
expect_false(check_latex_dependencies(quiet = TRUE))
expect_message(check_latex_dependencies(quiet = FALSE), regexp = "not found")
})
ld <- tlmgr_packages()
with_mock(
`tinytex::tl_pkgs` = function (...) return(ld), {
expect_true(check_latex_dependencies(quiet = TRUE))
expect_message(check_latex_dependencies(quiet = FALSE), regexp = "All LaTeX packages found")
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.