####################################################################################################################################
################################## isNumericString ##############################################################################
# >>
isNumericString <- function(str) {
out = grepl("^[-]{0,1}[0-9]{0,}.{0,1}[0-9]{1,}$", str)
return(out)
}
# <<
################################## isNumericString ###########################################################################
####################################################################################################################################
####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# out = isNumericString(str)
# <<
################################## Help Code #######################################################################################
####################################################################################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.