Nothing
source("helpers.R")
input <- style_vector(1:2, color = c("orange", "teal"))
output <- c(
"<span style='color:#FFA500'>1</span>",
"<span style='color:#008080'>2</span>")
expect_equivalent(input, output)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.