R/checkObservationFlag.R

In mkao006/sws_util: A suite of function to support the FAO new Statistical Working System.

##' Check observation flag
##' 
##' Observation flags in the SWS are only allowed to take certain values.  This
##' function ensures that the supplied flags are all valid.
##' 
##' @param flag A character (or character vector) of flag values to test for
##' validity.
##' 
##' @return A logical vector of the same length as flag indicating if the flags
##' are valid (TRUE = valid).
##' 
##' @export
##' 

checkObservationFlag = function(flag){
    flag %in% c("", "E", "I", "T", "M")
}