Nothing
isDark <- function(colr) {
apply(
X = grDevices::col2rgb(colr) * c(299L, 587L, 114L),
FUN = sum,
MARGIN = 2L
) /
1000L <
123L
}
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.