# NOT RUN {
proto.file <- system.file( "proto", "addressbook.proto", package = "RProtoBuf" )
Person <- P( "tutorial.Person", file = proto.file )
# }
# 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 DataCamp Workspace