| --- | |
| title: "Untitled" | |
| author: "Hao" | |
| date: "10/15/2017" | |
| output: html_document | |
| --- | |
| ```{r, include=FALSE} | |
| library(knitr) | |
| library(kableExtra) | |
| library(tidyverse) | |
| ``` | |
| ```{r} | |
| htmlFun = function(content) { | |
| x = htmltools::tags$div(content, class = 'error') | |
| # you could also do this if you don't care about escaping HTML entities in 'content': | |
| # x = htmltools::HTML(paste('<div class="error">', content, '</div>')) | |
| d = htmltools::htmlDependency( | |
| 'knitr-css', '1.2.3', src = system.file('misc', package = 'knitr'), | |
| stylesheet = 'knitr.css' | |
| ) | |
| x = htmltools::attachDependencies(x, d) | |
| x | |
| } | |
| htmlFun('Hello World!') | |
| ``` | |
| ```{r} | |
| mtcars[1:5, 1:2] %>% | |
| mutate(mpg = cell_spec(mpg, tooltip = cyl)) %>% | |
| kable("html", escape = F) %>% | |
| htmltools::HTML() | |
| ``` |