-
- pandoc_output_ext <- function(ext, to, input) {
- if (!is.null(ext)) return(ext)
- if (to %in% c("latex", "beamer")) return(".pdf")
- if (to %in% c("html", "html4", "html5", "s5", "slidy", "slideous", "dzslides", "revealjs"))
- return(".html")
- if (to == "markdown" && tolower(tools::file_ext(input)) != "md") return(".md")
- paste0(".", to)
- }
-
- pkg_file <- function(...) {
- system.file(..., package = "rmarkdown")
- }
-
- pkg_file_arg <- function(...) {
- pandoc_path_arg(pkg_file(...))
- }
-
- #' @rdname rmarkdown_format
- #' @export
- from_rmarkdown <- function(implicit_figures = TRUE, extensions = NULL) {