R/wrapper_ServiceDescriptor.R

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

setGeneric( "method_count", function(object ){
	standardGeneric( "method_count" )
} )
setMethod( "method_count", "ServiceDescriptor", function(object){
	.Call( "ServiceDescriptor_method_count", object@pointer, PACKAGE = "RProtoBuf" )
} )


setGeneric( "method", function(object, index, name ){
	standardGeneric( "method" )
} )
setMethod( "method", "ServiceDescriptor", function(object, index, name){
	
	has_index  <- !missing(index)
	has_name   <- !missing(name)
	
	if( as.integer(has_index) + as.integer(has_name) != 1L ){
		stop( "need exactly one of `index` or `name`" )
	}
	
	if( has_index ){
		return( .Call( "ServiceDescriptor_getMethodByIndex", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
	}
	
	if( has_name ){
		return( .Call( "ServiceDescriptor_getMethodByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )
	}
	
} )