library(locatexec)
if (exec_available('word')) {
file <- system.file(package = "doconv",
"doc-examples/example.docx")
out <- docx2pdf(input = file,
output = tempfile(fileext = ".pdf"))
if (file.exists(out)) {
message(basename(out), " is existing now.")
}
}
Run the code above in your browser using DataLab