1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#' @rdname html_document2
#' @export
markdown_document2 = function(
number_sections = TRUE, fig_caption = TRUE, md_extensions = NULL,
global_numbering = !number_sections, pandoc_args = NULL, ...,
base_format = rmarkdown::md_document
) {
from = rmarkdown::from_rmarkdown(fig_caption, md_extensions)
config = get_base_format(base_format, list(
number_sections = number_sections, fig_caption = fig_caption,
md_extensions = md_extensions, pandoc_args = pandoc_args, ...
))
pre = config$pre_processor
config$pre_processor = function(metadata, input_file, ...) {
process_markdown(input_file, from, pandoc_args, global_numbering)
if (is.function(pre)) pre(metadata, input_file, ...)
}
post = config$post_processor
config$post_processor = function(metadata, input, output, clean, verbose) {
if (is.function(post)) output = post(metadata, input, output, clean, verbose)
move_output(output)
}
config = common_format_config(config, config$pandoc$to)
config
}
#' @rdname html_document2
#' @export
context_document2 = function(...) {
markdown_document2(..., base_format = rmarkdown::context_document)
}
#' @rdname html_document2
#' @export
github_document2 = function(...) {
markdown_document2(..., base_format = rmarkdown::github_document)
}
#' @rdname html_document2
#' @export
odt_document2 = function(...) {
markdown_document2(..., base_format = rmarkdown::odt_document)
}
#' @rdname html_document2
#' @export
powerpoint_presentation2 = function(...) {
markdown_document2(..., base_format = rmarkdown::powerpoint_presentation)
}
#' @rdname html_document2
#' @export
rtf_document2 = function(...) {
markdown_document2(..., base_format = rmarkdown::rtf_document)
}
#' @rdname html_document2
#' @export
word_document2 = function(...) {
markdown_document2(..., base_format = rmarkdown::word_document)
}
|
