Description Usage Arguments Value Examples
1) In pre-knitting processing, function takes in a Rmd file, evaluates code chunks which are marked as between adjacent lines of @@@s, and then replace these code chunks with evaluated output captured using capture.output function. 2) Function then calls knitr::knit followed by rmarkdown::render. 3) After which, in post HTML-rendering processing, function evaluates code chunks in between ' captured using capture.output function. Typically, we want to insert an external HTML file and we can use ' This function will read in the external html file and replace this ' contents in the html file.
1 | preknit_knit_render_postrender(pRmdfile, outhtml = NULL)
|
pRmdfile |
- input Rmd file |
outhtml |
- output html file |
The output html file will have the codes between @@@ and/or \'%%% \' (where \' is a backtick) code chunks evaluated
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 | oldwd <- getwd()
setwd(tempdir())
#pandoc.exe is required to run this code
samplermd <- tempfile('test', getwd(), '.Rmd')
addhtml <- 'test__test.html'
#generate the test Rmd file
writeLines(c('---',
'title: "Example Usage"',
'output: html_document',
'---',
'',
'This document is used for various similar reports.',
'',
'@@@',
"cat(paste('#Dynamic Header1', rnorm(1)))",
'@@@',
'',
'`%%% writeLines(readLines("test__test.html"))`',
'',
'@@@',
'cat(paste("##Dynamic Header2", rnorm(1)))',
'@@@',
'',
'Some content is invariant across different reports.'), samplermd)
#generate test html file
writeLines(c('<ul>',
'<li>Item 1</li>',
'<li>Item 2</li>',
'<li>Item 3</li>',
'</ul>'), addhtml)
#Pre-knit processing and post HTML render processing
preknit_knit_render_postrender(samplermd, "sample__html.html")
#output 'sample__html.html' is in tempdir()
setwd(oldwd)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.