test_that("Report ERROR if libreoffice7.1 is not avaiable", {
skip_on_cran()
skip_on_os(c("windows", "mac", "solaris"))
file <- file.path(tempdir(), "tmp.rtf")
iris |>
head() |>
rtf_body() |>
rtf_encode() |>
write_rtf(file)
if (system("which libreoffice7.1", ignore.stderr = TRUE, ignore.stdout = TRUE) == 1) {
expect_error(rtf_convert_format(input = file, output_dir = tempdir()))
} else {
expect_equal(rtf_convert_format(input = file, output_dir = tempdir()), file.path(tempdir(), "tmp.pdf"))
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.