Nothing
is_count <- function(x, null_ok = FALSE) {
if (null_ok && is.null(x)) {
return(TRUE)
}
is.numeric(x) && length(x) == 1L && !is.na(x) && as.integer(x) == x && x > 0L
}
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.