file <- system.file(package = "doconv",
"doc-examples/example.docx")
if (FALSE) {
if (require("tinytest") && msoffice_available()){
# first run add a new snapshot
expect_snapshot_doc(x = file, name = "docx file", engine = "tinytest")
# next runs compare with the snapshot
expect_snapshot_doc(x = file, name = "docx file", engine = "tinytest")
# cleaning directory
unlink("_tinytest_doconv", recursive = TRUE, force = TRUE)
}
if (require("testthat") && msoffice_available()){
local_edition(3)
# first run add a new snapshot
expect_snapshot_doc(x = file, name = "docx file", engine = "testthat")
# next runs compare with the snapshot
expect_snapshot_doc(x = file, name = "docx file", engine = "testthat")
}
}
Run the code above in your browser using DataLab