library(knitr)
library(markdown)
renderRmd <- function(path, input, envir=new.env(), quiet=TRUE) {
return(renderText( {
contents <- paste(readLines(path, warn = FALSE), collapse = '\n')
assign('input', input, envir=envir)
html <- knitr::knit2html(text = contents, fragment.only = TRUE,
envir=envir, quiet=quiet)
Encoding(html) <- 'UTF-8'
# Remove <!–html_preserve–> and <!–/html_preserve–> from output
# This are put there with actionLink from Shiny
html <- sub('<!–html_preserve–>', '', html)
html <- sub('<!–/html_preserve–>', '', html)
return(HTML(html))
}))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.