Nothing
df <- data.frame(V1=runif(2, 0,1), V2=runif(2, 0,5), V3=runif(2, 0,30))
test_that("data2cielab works", {
data_with_colors <- data2cielab(df, Wb=1.2, S=1.6)
suppressWarnings(
expect_that( ncol(data_with_colors), equals(2) )
)
})
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.