Create a color-text formatter
color_text(...)
...
parameters passed to gradient.
gradient
formattable(mtcars, list(mpg = color_text("black", "red")))