R/has.R

In RProtoBuf: R Interface to the 'Protocol Buffers' 'API' (Version 2 or 3)

setGeneric( "has", function( object, name, ... ){
	standardGeneric( "has" )
} )
._has_message <- function( object, name, ...){
	if (!.Call(Message__field_exists, object@pointer, name)) {
		return(NULL)
	} else {
		return(.Call(Message__has_field, object@pointer, name))
	}
}
._has_enum_name <- function( object, name, ...){
    return(.Call(has_enum_name, object@pointer, name))
}

setMethod( "has", "Message", ._has_message )
setMethod( "has", "EnumDescriptor", ._has_enum_name)