Package 'PreKnitPostHTMLRender'

Post HTML-Rendering Processing

Description

Evaluates code chunks in between ' these code chunks with evaluated output 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.

Usage

post_html_render_proc(inhtml, outhtml = NULL)

Arguments

inhtml	- input file for be processed
outhtml	- output file name

---

Pre-knitting Processing

Description

Evaluates code chunks which are marked as between adjacent lines of @@s. Replace these code chunks with evaluated output captured using capture.output function.

Usage

pre_knit_proc(infile, outfile = NULL)

Arguments

infile	- input file for be processed
outfile	- output file name

---

First Pre-knitting Processing, then knitr::knit, then rmarkdown::render, then Post HTML-rendering Processing

Description

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.

Usage

preknit_knit_render_postrender(pRmdfile, outhtml = NULL)

Arguments

pRmdfile	- input Rmd file
outhtml	- output html file

Value

The output html file will have the codes between @@@ and/or \'%%% \' (where \' is a backtick) code chunks evaluated

Examples

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)

---

Eval a line of code and capture output

Description

Run a line of code and capture output into a character string

Usage

run_code(oneline, envir)

Arguments

oneline	- code line
envir	- environment to evaluate the code in

---