# NOT RUN {
library(formattable)
# mtcars (mpg background in gradient: the higher, the redder)
as.htmlwidget(
formattable(mtcars, list(mpg = formatter("span",
style = x ~ style(display = "block",
"border-radius" = "4px",
"padding-right" = "4px",
color = "white",
"background-color" = rgb(x/max(x), 0, 0))))
)
)
# since an htmlwidget, composes well with other tags
library(htmltools)
browsable(
tagList(
tags$div( class="jumbotron"
,tags$h1( class = "text-center"
,tags$span(class = "glyphicon glyphicon-fire")
,"experimental as.htmlwidget at work"
)
)
,tags$div( class = "row"
,tags$div( class = "col-sm-2"
,tags$p(class="bg-primary", "Hi, I am formattable htmlwidget.")
)
,tags$div( class = "col-sm-6"
,as.htmlwidget( formattable( mtcars ) )
)
)
)
)
# }
Run the code above in your browser using DataLab