if (FALSE) {
# from a package
readProtoFiles(package = "RProtoBuf")
# from a directory
proto.dir <- system.file("proto", package = "RProtoBuf")
readProtoFiles(dir = proto.dir)
# set of files
proto.files <- list.files(proto.dir, full.names = TRUE)
readProtoFiles(proto.files)
}
Run the code above in your browser using DataLab