Create a color-bar formatter
color_bar(color = "lightgray", fun = proportion, ...)
the background color of the bars
the transform function that maps the input vector to
values from 0 to 1. Uses proportion()
by default.
additional parameters passed to fun
formattable(mtcars, list(mpg = color_bar("lightgray", proportion)))