Here are the examples of the r api knitr-opts_knitset taken from open source projects. By voting up you can indicate which examples are most useful and appropriate.
8 Examples
19
File: task_plans.R, author: USGS-R, license: Creative Commons Zero v1.0 Universal
knitr::opts_knit$set(root.dir = tempdir())
19
File: utils-rmd.R, author: datacamp, license: GNU Affero General Public License v3.0
build_doc_structure < - function(text) {
old.format < - knitr::opts_knit$get()
knitr::opts_knit$set(out.format = "markdown")
apat < - knitr::all_patterns
opat < - knitr::knit_patterns$get()
on.exit({
knitr::knit_patterns$restore(opat)
knitr:::chunk_counter(reset = TRUE)
knitr:::knit_code$restore(list())
knitr::opts_knit$set(old.format)
})
knitr::pat_md()
content = knitr:::split_file(lines = knitr:::split_lines(text))
code_chunks < - knitr:::knit_code$get()
for (i in seq_along(content)) {
if (class(content[[i]]) == "block") {
label < - content[[i]]$params$label
content[[i]]$input < - paste(code_chunks[[label]],
collapse = "\n")
}
}
content[sapply(content, function(part) {
all(grepl(pattern = "^\\s*$", x = part$input.src)) &&
class(part) == "inline"
})] < - NULL
return(content)
}
19
File: Advanced.R, author: hannahlowens, license: GNU General Public License v3.0
knitr::opts_knit$set(root.dir = system.file("extdata/", package = "occCite"))
19
File: Simple.R, author: hannahlowens, license: GNU General Public License v3.0
knitr::opts_knit$set(root.dir = system.file("extdata/", package = "occCite"))
19
File: test-knitr.r, author: klmr, license: MIT License
test_that("modules are found inside a knitr document", {
check_knitr()
on.exit(unloadNamespace("knitr"))
input = "support/knitr/doc.rmd"
knitr::opts_knit$set(root.dir = getwd())
output = knitr::knit(input, quiet = TRUE)
on.exit(unlink(output), add = TRUE)
expected = "```\n## knitr/a\n```"
expect_match(paste(readLines(output), collapse = "\n"), expected)
})
19
File: test-child_files.R, author: phuse-org, license: MIT License
test_that("compatibility between vt_get_child_files and vt_files",
{
withr::with_tempdir({
captured_output < - capture.output({
vt_create_package(open = FALSE)
})
vt_use_test_case("testcase1", username = "a user",
open = FALSE)
vt_use_test_case("testcase2", username = "a user",
open = FALSE)
vt_use_req("req1", username = "a user", open = FALSE)
vt_use_req("req2", username = "a user", open = FALSE)
child_files < - vt_get_child_files(loc = "yml")
setwd(file.path("vignettes", "validation"))
knitr::opts_knit$set(output.dir = ".")
rmd_asis < - capture.output({
vt_file(child_files)
})
testthat::expect_equal(rmd_asis[9], "+ Setup: DOCUMENT ANY SETUP THAT NEEDS TO BE DONE FOR TESTING")
suppressWarnings(testthat::expect_error(vt_file(basename(child_files))))
})
})
19
File: test-vt_file.R, author: phuse-org, license: MIT License
test_that("evaluting markdown files works", {
withr::with_tempdir({
writeLines(c("#' @title sample title", "#' @editor sample editor",
"#' @editDate 1900-01-01", "## Header", "+ Content",
" + more content", "+ Content 2"), con = "sample.md")
writeLines(c("#' @title sample title", "#' @editor sample editor",
"#' @editDate 1900-01-01", "## Header", "+ ##req:Dynamic_ref.1 Reference",
" + more content", "+ Content 2"), con = "sample2.md")
knitr::opts_knit$set(output.dir = ".")
referencer < - vt_dynamic_referencer$new()
sample_output < - capture.output({
cat(file_parse.md(file = "sample.md", interactive_output = TRUE))
})
sample_output2 < - capture.output({
cat(file_parse.md(file = "sample2.md", reference = referencer,
interactive_output = TRUE, dynamic_referencing = TRUE))
})
sample_output3 < - capture.output({
vt_file(file = "sample.md", interactive_output = TRUE)
})
sample_output4 < - capture.output({
vt_file(file = "sample2.md", reference = referencer,
interactive_output = TRUE, dynamic_referencing = TRUE)
})
expect_equal(sample_output, c("## Header", "+ Content",
" + more content", "+ Content 2"))
expect_equal(sample_output2, c("## Header", "+ 1.1 Reference",
" + more content", "+ Content 2"))
expect_equal(sample_output3, c("## Header", "+ Content",
" + more content", "+ Content 2"))
expect_equal(sample_output4, c("## Header", "+ 1.1 Reference",
" + more content", "+ Content 2"))
})
})
19
File: test-vt_file.R, author: phuse-org, license: MIT License
test_that("evaluating Rmarkdown files works", {
withr::with_tempdir({
writeLines(c("---", "#' @title sample title", "#' @editor sample editor",
"#' @editDate 1900-01-01", "---", "## Header", "+ Content",
" + more content", "+ Content 2", "```{r}", "print(\"hello\")",
"```"), con = "sample.Rmd")
writeLines(c("---", "title: sample title", "#' @title sample title",
"#' @editor sample editor", "#' @editDate 1900-01-01",
"---", "## Header", "+ ##req:Dynamic_ref.1 Reference",
" + more content", "+ Content 2", "```{r}", "print(\"hello\")",
"```"), con = "sample2.Rmd")
knitr::opts_knit$set(output.dir = ".")
referencer < - vt_dynamic_referencer$new()
curr_env < - environment()
sample_output < - capture.output({
file_parse.rmd(file = "sample.Rmd", interactive_output = FALSE,
envir = curr_env)
})
sample_output2 < - capture.output({
file_parse.rmd(file = "sample2.Rmd", reference = referencer,
interactive_output = FALSE, dynamic_referencing = TRUE,
envir = curr_env)
})
sample_output3 < - capture.output({
vt_file(file = "sample.Rmd", interactive_output = FALSE,
envir = curr_env)
})
sample_output4 < - capture.output({
vt_file(file = "sample2.Rmd", reference = referencer,
interactive_output = FALSE, dynamic_referencing = TRUE,
envir = curr_env)
})
expect_equal(sample_output, c("", "", "", "## Header",
"+ Content", " + more content", "+ Content 2", "print(\"hello\")## [1] \"hello\""))
expect_equal(sample_output2, c("", "", "", "", "## Header",
"+ 1.1 Reference", " + more content", "+ Content 2",
"print(\"hello\")## [1] \"hello\""))
expect_equal(sample_output3, c("", "", "", "## Header",
"+ Content", " + more content", "+ Content 2", "print(\"hello\")## [1] \"hello\""))
expect_equal(sample_output4, c("", "", "", "", "## Header",
"+ 1.1 Reference", " + more content", "+ Content 2",
"print(\"hello\")## [1] \"hello\""))
})
})
