R/html.summary.box.R

Defines functions html.summary.box

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 = "")

}
irisweyermenkhoff/toyota-idv-functions documentation built on March 4, 2020, 9:57 a.m.