Nothing
verifyIntEntry <-
function(x, noValid = "isNoValid") {
isAnInteger <- strtoi(x)
if (x == "") {
xx <- NA
} else if (is.na(isAnInteger) == FALSE) {
xx <- isAnInteger
} else {
xx = noValid
}
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.