## Not run:
# proto.file <- system.file( "proto", "addressbook.proto", package = "RProtoBuf" )
# Person <- P( "tutorial.Person", file = proto.file )
# ## End(Not run)
number(Person$id)
number(Person$email)
as.character(Person)
number(value(tutorial.Person$PhoneType, name="HOME"))
Run the code above in your browser using DataLab