var.is.num <- function(x){ x <- ifelse(is.na(x) | x == '', 1, x) y <- all(!is.na(as.numeric(x))) return(y) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.