R/clone.R

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

setGeneric( "clone", function( object, ... ){
	standardGeneric( "clone" )
} )
._clone.message <- function( object, ... ){
	message <- .Call( "Message__clone", object@pointer, PACKAGE="RProtoBuf")
	update( message, ... )
	message
}
setMethod( "clone", "Message", ._clone.message )