Code
x <- c(0.1, 0.2, 0.3)
f <- color_tile("white", "pink")
writeLines(f(0.1))
Output
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffc0cb">0.1</span>
Code
writeLines(f(x))
Output
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffffff">0.1</span>
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffdfe5">0.2</span>
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffc0cb">0.3</span>
Code
writeLines(f(percent(x)))
Output
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffffff">10.00%</span>
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffdfe5">20.00%</span>
<span style="display: block; padding: 0 4px; border-radius: 4px; background-color: #ffc0cb">30.00%</span>
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.