# simple examples -----
demo_docx <- system.file(package = "flextable", "examples/rmd", "demo.Rmd")
rmd_file <- tempfile(fileext = ".Rmd")
file.copy(demo_docx, to = rmd_file, overwrite = TRUE)
rmd_file # R Markdown document used for demo
if(require("rmarkdown", quietly = TRUE)){
# knitr::opts_chunk$set(webshot = "webshot2")
# render(input = rmd_file, output_format = "word_document", output_file = "doc.docx")
# render(input = rmd_file, output_format = "pdf_document", output_file = "doc.pdf")
# render(input = rmd_file, output_format = "html_document", output_file = "doc.html")
# render(input = rmd_file, output_format = "powerpoint_presentation", output_file = "pres.pptx")
# render(input = rmd_file, output_format = "slidy_presentation", output_file = "slidy.html")
# render(input = rmd_file, output_format = "beamer_presentation", output_file = "beamer.pdf")
# render(input = rmd_file, output_format = "pagedown::html_paged", output_file = "paged.html")
}
## bookdown examples wth captions and cross ref -----
# captions_example <- system.file(
# package = "flextable",
# "examples/rmd", "captions_example.Rmd")
#
# dir_tmp <- tempfile(pattern = "dir")
# dir.create(dir_tmp, showWarnings = FALSE, recursive = TRUE)
# file.copy(captions_example, dir_tmp)
# rmd_file <- file.path(dir_tmp, basename(captions_example))
#
# file.copy(captions_example, to = rmd_file, overwrite = TRUE)
#
# if(require("rmarkdown", quietly = TRUE)){
# render(input = rmd_file,
# output_format = word_document(),
# output_file = "doc.docx")
# render(input = rmd_file,
# output_format = pdf_document(latex_engine = "xelatex"),
# output_file = "doc.pdf")
# render(input = rmd_file,
# output_format = html_document(),
# output_file = "doc.html")
#
# # bookdown ----
# if(require("bookdown", quietly = TRUE)){
# render(input = rmd_file, output_format = word_document2(),
# output_file = "book.docx")
# render(input = rmd_file,
# output_format = pdf_document2(latex_engine = "xelatex"),
# output_file = "book.pdf")
# render(input = rmd_file,
# output_format = html_document2(),
# output_file = "book.html")
#
# # officedown ----
# if(require("officedown", quietly = TRUE)){
# render(input = rmd_file,
# output_format = markdown_document2(base_format=rdocx_document),
# output_file = "officedown.docx")
# }
# }
# }
# browseURL(dirname(rmd_file))
Run the code above in your browser using DataLab