Here are the examples of the r api knitr-knit_meta_add taken from open source projects. By voting up you can indicate which examples are most useful and appropriate.
2 Examples
19
File: distill_article.R, author: rstudio, license: Apache License 2.0
distill_article < - function(toc = FALSE, toc_depth = 3, toc_float = TRUE,
fig_width = 6.5, fig_height = 4, fig_retina = 2, fig_caption = TRUE,
dev = "png", smart = TRUE, code_folding = FALSE, self_contained = TRUE,
highlight = "default", highlight_downlit = TRUE, mathjax = "default",
extra_dependencies = NULL, theme = NULL, css = NULL, includes = NULL,
keep_md = FALSE, lib_dir = NULL, md_extensions = NULL, pandoc_args = NULL,
...) {
validate_pandoc_version()
args < - c("--standalone")
args < - c(args, pandoc_toc_args(toc, toc_depth))
if (toc_float) {
args < - c(args, pandoc_variable_arg("toc-float", "1"))
}
args < - c(args, distill_highlighting_args(highlight))
if (is.null(highlight))
highlight_downlit < - FALSE
args < - c(args, "--template", pandoc_path_arg(distill_resource("default.html")))
args < - c(args, "--metadata=link-citations:true")
knitr_options < - knitr_options_html(fig_width = fig_width,
fig_height = fig_height, fig_retina = fig_retina, keep_md = keep_md,
dev = dev)
knitr_options$opts_chunk$echo < - identical(code_folding,
FALSE)
knitr_options$opts_chunk$warning < - FALSE
knitr_options$opts_chunk$message < - FALSE
knitr_options$opts_chunk$comment < - NA
knitr_options$opts_chunk$R.options < - list(width = 70)
knitr_options$opts_chunk$code_folding < - code_folding
knitr_options$opts_knit$bookdown.internal.label < - TRUE
knitr_options$opts_hooks < - list()
knitr_options$opts_hooks$preview < - knitr_preview_hook
knitr_options$opts_hooks$code_folding < - function(options) {
if (!identical(code_folding, FALSE)) {
options[["echo"]] < - TRUE
}
options
}
knitr_options$knit_hooks < - knit_hooks(downlit = highlight_downlit)
site_config < - NULL
encoding < - NULL
metadata_includes < - list()
post_knit < - function(metadata, input_file, runtime, encoding,
...) {
encoding < < - encoding
metadata < - eval_metadata(metadata)
metadata_output < - metadata[["output"]]
if (is.list(metadata_output)) {
metadata_distill < - metadata_output[["distill::distill_article"]]
if (is.list(metadata_distill)) {
metadata_includes < < - metadata_distill[["includes"]]
}
}
args < - c()
output_file < - file_with_meta_ext(input_file, "knit",
"md")
in_collection < - FALSE
site_config < < - site_config(input_file, encoding)
if (is.null(site_config)) {
site_config < < - list()
in_collection < - !is.null(find_site_dir(input_file))
}
if (is.null(metadata[["date"]]) && in_collection) {
metadata$date < - date_today()
args < - c(args, pandoc_variable_arg("date", metadata$date))
}
embedable_metadata < - metadata
embedable_metadata$author < - fixup_author(embedable_metadata$author)
transformed < - transform_configuration(file = output_file,
site_config = site_config, collection_config = NULL,
metadata = metadata, auto_preview = !self_contained)
site_config < - transformed$site_config
metadata < - transformed$metadata
embedable_metadata$citation_url < - embedable_metadata$citation_url
embedable_metadata$canonical_url < - embedable_metadata$canonical_url
metadata_json < - embedded_metadata(embedable_metadata)
html_deps < - list()
if (!have_navigation(site_config)) {
html_deps < - list(html_dependency_jquery())
}
else {
html_deps < - list()
}
html_deps < - append(html_deps, list(html_dependency_popper(),
html_dependency_tippy(), html_dependency_anchor(),
html_dependency_bowser(), html_dependency_webcomponents(),
html_dependency_distill()))
listing < - list()
if (!is.null(metadata$listing)) {
if (is.list(metadata$listing))
listing < - resolve_yaml_listing(input_file, site_config,
metadata, metadata$listing)
else listing < - resolve_listing(input_file, site_config,
metadata)
}
if (length(listing) > 0) {
args < - c(args, pandoc_variable_arg("layout", "listing"))
if (!is.null(listing$feed))
args < - c(args, pandoc_variable_arg("feed", url_path(site_config$base_url,
listing$feed)))
}
knitr::knit_meta_add(html_deps)
ensure_site_dependencies(site_config, dirname(input_file))
if ((is.null(theme) || !file.exists(theme))) {
theme < - theme_from_site_config(find_site_dir(input_file),
site_config)
}
in_header < - c(metadata_in_header(site_config, metadata,
self_contained), citation_references_in_header(input_file,
metadata$bibliography), metadata_json, manifest_in_header(site_config,
input_file, metadata, self_contained), navigation_in_header_file(site_config),
distill_in_header_file(theme))
before_body < - c(front_matter_before_body(metadata),
navigation_before_body_file(dirname(input_file),
site_config), site_before_body_file(site_config),
metadata_includes$before_body, listing$html)
after_body < - c(metadata_includes$after_body, site_after_body_file(site_config),
appendices_after_body_file(input_file, site_config,
metadata), navigation_after_body_file(dirname(input_file),
site_config))
args < - c(args, pandoc_include_args(in_header = in_header,
before_body = before_body, after_body = after_body))
args
}
pre_processor < - function(yaml_front_matter, utf8_input,
runtime, knit_meta, files_dir, output_dir, ...) {
pandoc_include_args(in_header = c(site_in_header_file(site_config),
metadata_includes$in_header))
}
on_exit < - function() {
validate_rstudio_version()
}
output_format(knitr = knitr_options, pandoc = pandoc_options(to = "html5",
from = from_rmarkdown(fig_caption, md_extensions), args = args),
keep_md = keep_md, clean_supporting = self_contained,
post_knit = post_knit, pre_processor = pre_processor,
post_processor = distill_article_post_processor(function() encoding,
self_contained), on_exit = on_exit, base_format = html_document_base(smart = smart,
self_contained = self_contained, lib_dir = lib_dir,
css = css, mathjax = mathjax, template = "default",
pandoc_args = pandoc_args, bootstrap_compatible = FALSE,
extra_dependencies = extra_dependencies, ...))
}
19
File: navigation.R, author: rstudio, license: Apache License 2.0
render_navigation_html < - function(navigation_html) {
rendered < - renderTags(navigation_html, indent = FALSE)
knitr::knit_meta_add(rendered$dependencies)
rendered$html
}
