Nothing
#===== Source file: ../notANumber.r on 2024-01-26
#-----
notANumber <- function(x, result=c("logical", "values"))
{
if (!is.character(x)) stop("'x' is not a character vector")
x[is.na(x) | x == ""] <- "0"
xx <- suppressWarnings(as.numeric(x)) # Invalid strings will become NA
result <- match.arg(result)
if (result == "logical") is.na(xx) else unique(x[is.na(xx)])
}
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.