R/SeaBird.is.whole.number.R

In cttedwards/seabird2: Read and write SeaBird files in R

#' $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)
}