html.summary.box <- function(param){
text1 <- knitr::knit_expand(text = "<div class ='text_box'>")
text2 <- knitr::knit_expand(text = sprintf(
"`r (markdown::markdownToHTML(text = %s, fragment.only = TRUE))`", param))
end <- knitr::knit_expand(text = "\n </div>")
summary <- paste(text1, text2, end, collapse = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.