## 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 ) )
# )
# )
# )
# )
# ## End(Not run)
Run the code above in your browser using DataLab