is_date <- function(x) {
inherits(x, "Date") ||
inherits(x, "Time") ||
inherits(x, "Datetime")
}
is_numeric <- function(x) {
is.numeric(x)
}
is_discrete <- function(x) {
!is_numeric(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.