#' $Id: SeaBird.is.whole.number.R 1747 2007-11-12 21:01:38Z adunn $
#'
#' @export
#'
"SeaBird.is.whole.number"<-
function(string)
{
# this function is very dicey - works in its intended context but ...
for(i in 1:nchar(string)) {
digit <- substring(string, i, i)
if(!SeaBird.isin(digit, as.character(0:9))) {
return(F)
}
}
return(T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.