R/size.R

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

setGeneric( "bytesize", function(object, ...){
	standardGeneric( "bytesize" )
} )
setMethod( "bytesize", "Message", function(object, ...){
	.Call(Message__bytesize, object@pointer)
} )

setGeneric( "size", function( object, field, ... ){
	standardGeneric( "size" )
} )
setMethod( "size", "Message", function(object, field, ...){

	if( is.character( field ) || is.numeric( field ) ){
		.Call(Message__field_size, object@pointer, field)
	} else{
		stop( "field should be a character or a number" )
	}

} )


setGeneric( "size<-", function( object, field, ..., value ){
	standardGeneric( "size<-" )
} )
setMethod( "size<-", "Message", function(object, field, ..., value){

	if( !is.numeric( value ) ){
		stop("value should be a number")
	}
	value <- as.integer( value )[1]

	if( is.character( field ) || is.numeric( field ) ){
		.Call(Message__set_field_size, object@pointer, field, value)
	} else{
		stop( "field should be a character or a number" )
	}
	object
} )