[Rprotobuf-commits] r944 - papers/jss
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Apr 13 21:33:59 CEST 2015
Author: edd
Date: 2015-04-13 21:33:59 +0200 (Mon, 13 Apr 2015)
New Revision: 944
Added:
papers/jss/jss1313.R
Removed:
papers/jss/article.R
Modified:
papers/jss/
Log:
more svn ignore
Property changes on: papers/jss
___________________________________________________________________
Modified: svn:ignore
- article.aux
article.bbl
article.log
article.pdf
article.tex
+ article.aux
article.bbl
article.log
article.pdf
article.tex
jss1313.aux
jss1313.bbl
jss1313.log
jss1313.pdf
jss1313.tex
Deleted: papers/jss/article.R
===================================================================
--- papers/jss/article.R 2015-04-13 18:25:13 UTC (rev 943)
+++ papers/jss/article.R 2015-04-13 19:33:59 UTC (rev 944)
@@ -1,297 +0,0 @@
-### R code from vignette source '/home/edd/svn/rprotobuf/papers/jss/article.Rnw'
-
-###################################################
-### code chunk number 1: article.Rnw:130-136
-###################################################
-## cf http://www.jstatsoft.org/style#q12
-options(prompt = "R> ",
- continue = "+ ",
- width = 70,
- useFancyQuotes = FALSE,
- digits = 4)
-
-
-###################################################
-### code chunk number 2: article.Rnw:318-326
-###################################################
-library("RProtoBuf")
-p <- new(tutorial.Person, id=1,
- name="Dirk")
-p$name
-p$name <- "Murray"
-cat(as.character(p))
-serialize(p, NULL)
-class(p)
-
-
-###################################################
-### code chunk number 3: article.Rnw:421-422
-###################################################
-p <- new(tutorial.Person, name = "Murray", id = 1)
-
-
-###################################################
-### code chunk number 4: article.Rnw:431-434
-###################################################
-p$name
-p$id
-p$email <- "murray at stokely.org"
-
-
-###################################################
-### code chunk number 5: article.Rnw:442-445
-###################################################
-p[["name"]] <- "Murray Stokely"
-p[[ 2 ]] <- 3
-p[["email"]]
-
-
-###################################################
-### code chunk number 6: article.Rnw:461-462
-###################################################
-p
-
-
-###################################################
-### code chunk number 7: article.Rnw:469-470
-###################################################
-writeLines(as.character(p))
-
-
-###################################################
-### code chunk number 8: article.Rnw:483-484
-###################################################
-serialize(p, NULL)
-
-
-###################################################
-### code chunk number 9: article.Rnw:489-492
-###################################################
-tf1 <- tempfile()
-serialize(p, tf1)
-readBin(tf1, raw(0), 500)
-
-
-###################################################
-### code chunk number 10: article.Rnw:538-540
-###################################################
-msg <- read(tutorial.Person, tf1)
-writeLines(as.character(msg))
-
-
-###################################################
-### code chunk number 11: article.Rnw:660-661
-###################################################
-new(tutorial.Person)
-
-
-###################################################
-### code chunk number 12: article.Rnw:685-690
-###################################################
-tutorial.Person$email
-tutorial.Person$email$is_required()
-tutorial.Person$email$type()
-tutorial.Person$email$as.character()
-class(tutorial.Person$email)
-
-
-###################################################
-### code chunk number 13: article.Rnw:702-709
-###################################################
-tutorial.Person$PhoneType
-tutorial.Person$PhoneType$WORK
-class(tutorial.Person$PhoneType)
-tutorial.Person$PhoneType$value(1)
-tutorial.Person$PhoneType$value(name="HOME")
-tutorial.Person$PhoneType$value(number=1)
-class(tutorial.Person$PhoneType$value(1))
-
-
-###################################################
-### code chunk number 14: article.Rnw:805-808
-###################################################
-if (!exists("JSSPaper.Example1", "RProtoBuf:DescriptorPool")) {
- readProtoFiles(file="int64.proto")
-}
-
-
-###################################################
-### code chunk number 15: article.Rnw:830-834
-###################################################
-as.integer(2^31-1)
-as.integer(2^31 - 1) + as.integer(1)
-2^31
-class(2^31)
-
-
-###################################################
-### code chunk number 16: article.Rnw:846-847
-###################################################
-2^53 == (2^53 + 1)
-
-
-###################################################
-### code chunk number 17: article.Rnw:898-900
-###################################################
-msg <- serialize_pb(iris, NULL)
-identical(iris, unserialize_pb(msg))
-
-
-###################################################
-### code chunk number 18: article.Rnw:928-931
-###################################################
-datasets <- as.data.frame(data(package="datasets")$results)
-datasets$name <- sub("\\s+.*$", "", datasets$Item)
-n <- nrow(datasets)
-
-
-###################################################
-### code chunk number 19: article.Rnw:949-992
-###################################################
-datasets$object.size <- unname(sapply(datasets$name, function(x) object.size(eval(as.name(x)))))
-
-datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
-
-datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
-
-datasets$R.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize(eval(as.name(x)), NULL), "gzip"))))
-
-datasets$RProtoBuf.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize_pb(eval(as.name(x)), NULL))))
-
-datasets$RProtoBuf.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize_pb(eval(as.name(x)), NULL), "gzip"))))
-
-clean.df <- data.frame(dataset=datasets$name,
- object.size=datasets$object.size,
- "serialized"=datasets$R.serialize.size,
- "gzipped serialized"=datasets$R.serialize.size.gz,
- "RProtoBuf"=datasets$RProtoBuf.serialize.size,
- "gzipped RProtoBuf"=datasets$RProtoBuf.serialize.size.gz,
- "ratio.serialized" = datasets$R.serialize.size / datasets$object.size,
- "ratio.rprotobuf" = datasets$RProtoBuf.serialize.size / datasets$object.size,
- "ratio.serialized.gz" = datasets$R.serialize.size.gz / datasets$object.size,
- "ratio.rprotobuf.gz" = datasets$RProtoBuf.serialize.size.gz / datasets$object.size,
- "savings.serialized" = 1-(datasets$R.serialize.size / datasets$object.size),
- "savings.rprotobuf" = 1-(datasets$RProtoBuf.serialize.size / datasets$object.size),
- "savings.serialized.gz" = 1-(datasets$R.serialize.size.gz / datasets$object.size),
- "savings.rprotobuf.gz" = 1-(datasets$RProtoBuf.serialize.size.gz / datasets$object.size),
- check.names=FALSE)
-
-all.df<-data.frame(dataset="TOTAL", object.size=sum(datasets$object.size),
- "serialized"=sum(datasets$R.serialize.size),
- "gzipped serialized"=sum(datasets$R.serialize.size.gz),
- "RProtoBuf"=sum(datasets$RProtoBuf.serialize.size),
- "gzipped RProtoBuf"=sum(datasets$RProtoBuf.serialize.size.gz),
- "ratio.serialized" = sum(datasets$R.serialize.size) / sum(datasets$object.size),
- "ratio.rprotobuf" = sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size),
- "ratio.serialized.gz" = sum(datasets$R.serialize.size.gz) / sum(datasets$object.size),
- "ratio.rprotobuf.gz" = sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size),
- "savings.serialized" = 1-(sum(datasets$R.serialize.size) / sum(datasets$object.size)),
- "savings.rprotobuf" = 1-(sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size)),
- "savings.serialized.gz" = 1-(sum(datasets$R.serialize.size.gz) / sum(datasets$object.size)),
- "savings.rprotobuf.gz" = 1-(sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size)),
- check.names=FALSE)
-clean.df<-rbind(clean.df, all.df)
-
-
-###################################################
-### code chunk number 20: SER
-###################################################
-old.mar<-par("mar")
-new.mar<-old.mar
-new.mar[3]<-0
-new.mar[4]<-0
-my.cex<-1.3
-par("mar"=new.mar)
-plot(clean.df$savings.serialized, clean.df$savings.rprotobuf, pch=1, col="red", las=1, xlab="Serialization Space Savings", ylab="Protocol Buffer Space Savings", xlim=c(0,1),ylim=c(0,1),cex.lab=my.cex, cex.axis=my.cex)
-points(clean.df$savings.serialized.gz, clean.df$savings.rprotobuf.gz,pch=2, col="blue")
-# grey dotted diagonal
-abline(a=0,b=1, col="grey",lty=2,lwd=3)
-
-# find point furthest off the X axis.
-clean.df$savings.diff <- clean.df$savings.serialized - clean.df$savings.rprotobuf
-clean.df$savings.diff.gz <- clean.df$savings.serialized.gz - clean.df$savings.rprotobuf.gz
-
-# The one to label.
-tmp.df <- clean.df[which(clean.df$savings.diff == min(clean.df$savings.diff)),]
-# This minimum means most to the left of our line, so pos=2 is label to the left
-text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
-
-# Some gziped version
-# text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=2, cex=my.cex)
-
-# Second one is also an outlier
-tmp.df <- clean.df[which(clean.df$savings.diff == sort(clean.df$savings.diff)[2]),]
-# This minimum means most to the left of our line, so pos=2 is label to the left
-text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
-#text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=my.cex)
-
-
-tmp.df <- clean.df[which(clean.df$savings.diff == max(clean.df$savings.diff)),]
-# This minimum means most to the right of the diagonal, so pos=4 is label to the right
-# Only show the gziped one.
-#text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=4, cex=my.cex)
-text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=4, cex=my.cex)
-
-#outlier.dfs <- clean.df[c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
-
-legend("topleft", c("Raw", "Gzip Compressed"), pch=1:2, col=c("red", "blue"), cex=my.cex)
-
-interesting.df <- clean.df[unique(c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
- which(clean.df$savings.diff == max(clean.df$savings.diff)),
- which(clean.df$savings.diff.gz == max(clean.df$savings.diff.gz)),
- which(clean.df$dataset == "TOTAL"))),c("dataset", "object.size", "serialized", "gzipped serialized", "RProtoBuf", "gzipped RProtoBuf", "savings.serialized", "savings.serialized.gz", "savings.rprotobuf", "savings.rprotobuf.gz")]
-# Print without .00 in xtable
-interesting.df$object.size <- as.integer(interesting.df$object.size)
-par("mar"=old.mar)
-
-
-###################################################
-### code chunk number 21: article.Rnw:1231-1235
-###################################################
-require(HistogramTools)
-readProtoFiles(package="HistogramTools")
-hist <- HistogramTools.HistogramState$read("hist.pb")
-plot(as.histogram(hist), main="")
-
-
-###################################################
-### code chunk number 22: article.Rnw:1323-1330 (eval = FALSE)
-###################################################
-## library("RProtoBuf")
-## library("httr")
-##
-## req <- GET('https://demo.ocpu.io/MASS/data/Animals/pb')
-## output <- unserialize_pb(req$content)
-##
-## identical(output, MASS::Animals)
-
-
-###################################################
-### code chunk number 23: article.Rnw:1380-1396 (eval = FALSE)
-###################################################
-## library("httr")
-## library("RProtoBuf")
-##
-## args <- list(n=42, mean=100)
-## payload <- serialize_pb(args, NULL)
-##
-## req <- POST (
-## url = "https://demo.ocpu.io/stats/R/rnorm/pb",
-## body = payload,
-## add_headers (
-## "Content-Type" = "application/x-protobuf"
-## )
-## )
-##
-## output <- unserialize_pb(req$content)
-## print(output)
-
-
-###################################################
-### code chunk number 24: article.Rnw:1400-1403 (eval = FALSE)
-###################################################
-## fnargs <- unserialize_pb(inputmsg)
-## val <- do.call(stats::rnorm, fnargs)
-## outputmsg <- serialize_pb(val)
-
-
Copied: papers/jss/jss1313.R (from rev 943, papers/jss/article.R)
===================================================================
--- papers/jss/jss1313.R (rev 0)
+++ papers/jss/jss1313.R 2015-04-13 19:33:59 UTC (rev 944)
@@ -0,0 +1,297 @@
+### R code from vignette source '/home/edd/svn/rprotobuf/papers/jss/article.Rnw'
+
+###################################################
+### code chunk number 1: article.Rnw:130-136
+###################################################
+## cf http://www.jstatsoft.org/style#q12
+options(prompt = "R> ",
+ continue = "+ ",
+ width = 70,
+ useFancyQuotes = FALSE,
+ digits = 4)
+
+
+###################################################
+### code chunk number 2: article.Rnw:318-326
+###################################################
+library("RProtoBuf")
+p <- new(tutorial.Person, id=1,
+ name="Dirk")
+p$name
+p$name <- "Murray"
+cat(as.character(p))
+serialize(p, NULL)
+class(p)
+
+
+###################################################
+### code chunk number 3: article.Rnw:421-422
+###################################################
+p <- new(tutorial.Person, name = "Murray", id = 1)
+
+
+###################################################
+### code chunk number 4: article.Rnw:431-434
+###################################################
+p$name
+p$id
+p$email <- "murray at stokely.org"
+
+
+###################################################
+### code chunk number 5: article.Rnw:442-445
+###################################################
+p[["name"]] <- "Murray Stokely"
+p[[ 2 ]] <- 3
+p[["email"]]
+
+
+###################################################
+### code chunk number 6: article.Rnw:461-462
+###################################################
+p
+
+
+###################################################
+### code chunk number 7: article.Rnw:469-470
+###################################################
+writeLines(as.character(p))
+
+
+###################################################
+### code chunk number 8: article.Rnw:483-484
+###################################################
+serialize(p, NULL)
+
+
+###################################################
+### code chunk number 9: article.Rnw:489-492
+###################################################
+tf1 <- tempfile()
+serialize(p, tf1)
+readBin(tf1, raw(0), 500)
+
+
+###################################################
+### code chunk number 10: article.Rnw:538-540
+###################################################
+msg <- read(tutorial.Person, tf1)
+writeLines(as.character(msg))
+
+
+###################################################
+### code chunk number 11: article.Rnw:660-661
+###################################################
+new(tutorial.Person)
+
+
+###################################################
+### code chunk number 12: article.Rnw:685-690
+###################################################
+tutorial.Person$email
+tutorial.Person$email$is_required()
+tutorial.Person$email$type()
+tutorial.Person$email$as.character()
+class(tutorial.Person$email)
+
+
+###################################################
+### code chunk number 13: article.Rnw:702-709
+###################################################
+tutorial.Person$PhoneType
+tutorial.Person$PhoneType$WORK
+class(tutorial.Person$PhoneType)
+tutorial.Person$PhoneType$value(1)
+tutorial.Person$PhoneType$value(name="HOME")
+tutorial.Person$PhoneType$value(number=1)
+class(tutorial.Person$PhoneType$value(1))
+
+
+###################################################
+### code chunk number 14: article.Rnw:805-808
+###################################################
+if (!exists("JSSPaper.Example1", "RProtoBuf:DescriptorPool")) {
+ readProtoFiles(file="int64.proto")
+}
+
+
+###################################################
+### code chunk number 15: article.Rnw:830-834
+###################################################
+as.integer(2^31-1)
+as.integer(2^31 - 1) + as.integer(1)
+2^31
+class(2^31)
+
+
+###################################################
+### code chunk number 16: article.Rnw:846-847
+###################################################
+2^53 == (2^53 + 1)
+
+
+###################################################
+### code chunk number 17: article.Rnw:898-900
+###################################################
+msg <- serialize_pb(iris, NULL)
+identical(iris, unserialize_pb(msg))
+
+
+###################################################
+### code chunk number 18: article.Rnw:928-931
+###################################################
+datasets <- as.data.frame(data(package="datasets")$results)
+datasets$name <- sub("\\s+.*$", "", datasets$Item)
+n <- nrow(datasets)
+
+
+###################################################
+### code chunk number 19: article.Rnw:949-992
+###################################################
+datasets$object.size <- unname(sapply(datasets$name, function(x) object.size(eval(as.name(x)))))
+
+datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
+
+datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
+
+datasets$R.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize(eval(as.name(x)), NULL), "gzip"))))
+
+datasets$RProtoBuf.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize_pb(eval(as.name(x)), NULL))))
+
+datasets$RProtoBuf.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize_pb(eval(as.name(x)), NULL), "gzip"))))
+
+clean.df <- data.frame(dataset=datasets$name,
+ object.size=datasets$object.size,
+ "serialized"=datasets$R.serialize.size,
+ "gzipped serialized"=datasets$R.serialize.size.gz,
+ "RProtoBuf"=datasets$RProtoBuf.serialize.size,
+ "gzipped RProtoBuf"=datasets$RProtoBuf.serialize.size.gz,
+ "ratio.serialized" = datasets$R.serialize.size / datasets$object.size,
+ "ratio.rprotobuf" = datasets$RProtoBuf.serialize.size / datasets$object.size,
+ "ratio.serialized.gz" = datasets$R.serialize.size.gz / datasets$object.size,
+ "ratio.rprotobuf.gz" = datasets$RProtoBuf.serialize.size.gz / datasets$object.size,
+ "savings.serialized" = 1-(datasets$R.serialize.size / datasets$object.size),
+ "savings.rprotobuf" = 1-(datasets$RProtoBuf.serialize.size / datasets$object.size),
+ "savings.serialized.gz" = 1-(datasets$R.serialize.size.gz / datasets$object.size),
+ "savings.rprotobuf.gz" = 1-(datasets$RProtoBuf.serialize.size.gz / datasets$object.size),
+ check.names=FALSE)
+
+all.df<-data.frame(dataset="TOTAL", object.size=sum(datasets$object.size),
+ "serialized"=sum(datasets$R.serialize.size),
+ "gzipped serialized"=sum(datasets$R.serialize.size.gz),
+ "RProtoBuf"=sum(datasets$RProtoBuf.serialize.size),
+ "gzipped RProtoBuf"=sum(datasets$RProtoBuf.serialize.size.gz),
+ "ratio.serialized" = sum(datasets$R.serialize.size) / sum(datasets$object.size),
+ "ratio.rprotobuf" = sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size),
+ "ratio.serialized.gz" = sum(datasets$R.serialize.size.gz) / sum(datasets$object.size),
+ "ratio.rprotobuf.gz" = sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size),
+ "savings.serialized" = 1-(sum(datasets$R.serialize.size) / sum(datasets$object.size)),
+ "savings.rprotobuf" = 1-(sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size)),
+ "savings.serialized.gz" = 1-(sum(datasets$R.serialize.size.gz) / sum(datasets$object.size)),
+ "savings.rprotobuf.gz" = 1-(sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size)),
+ check.names=FALSE)
+clean.df<-rbind(clean.df, all.df)
+
+
+###################################################
+### code chunk number 20: SER
+###################################################
+old.mar<-par("mar")
+new.mar<-old.mar
+new.mar[3]<-0
+new.mar[4]<-0
+my.cex<-1.3
+par("mar"=new.mar)
+plot(clean.df$savings.serialized, clean.df$savings.rprotobuf, pch=1, col="red", las=1, xlab="Serialization Space Savings", ylab="Protocol Buffer Space Savings", xlim=c(0,1),ylim=c(0,1),cex.lab=my.cex, cex.axis=my.cex)
+points(clean.df$savings.serialized.gz, clean.df$savings.rprotobuf.gz,pch=2, col="blue")
+# grey dotted diagonal
+abline(a=0,b=1, col="grey",lty=2,lwd=3)
+
+# find point furthest off the X axis.
+clean.df$savings.diff <- clean.df$savings.serialized - clean.df$savings.rprotobuf
+clean.df$savings.diff.gz <- clean.df$savings.serialized.gz - clean.df$savings.rprotobuf.gz
+
+# The one to label.
+tmp.df <- clean.df[which(clean.df$savings.diff == min(clean.df$savings.diff)),]
+# This minimum means most to the left of our line, so pos=2 is label to the left
+text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
+
+# Some gziped version
+# text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=2, cex=my.cex)
+
+# Second one is also an outlier
+tmp.df <- clean.df[which(clean.df$savings.diff == sort(clean.df$savings.diff)[2]),]
+# This minimum means most to the left of our line, so pos=2 is label to the left
+text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
+#text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=my.cex)
+
+
+tmp.df <- clean.df[which(clean.df$savings.diff == max(clean.df$savings.diff)),]
+# This minimum means most to the right of the diagonal, so pos=4 is label to the right
+# Only show the gziped one.
+#text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=4, cex=my.cex)
+text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=4, cex=my.cex)
+
+#outlier.dfs <- clean.df[c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
+
+legend("topleft", c("Raw", "Gzip Compressed"), pch=1:2, col=c("red", "blue"), cex=my.cex)
+
+interesting.df <- clean.df[unique(c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
+ which(clean.df$savings.diff == max(clean.df$savings.diff)),
+ which(clean.df$savings.diff.gz == max(clean.df$savings.diff.gz)),
+ which(clean.df$dataset == "TOTAL"))),c("dataset", "object.size", "serialized", "gzipped serialized", "RProtoBuf", "gzipped RProtoBuf", "savings.serialized", "savings.serialized.gz", "savings.rprotobuf", "savings.rprotobuf.gz")]
+# Print without .00 in xtable
+interesting.df$object.size <- as.integer(interesting.df$object.size)
+par("mar"=old.mar)
+
+
+###################################################
+### code chunk number 21: article.Rnw:1231-1235
+###################################################
+require(HistogramTools)
+readProtoFiles(package="HistogramTools")
+hist <- HistogramTools.HistogramState$read("hist.pb")
+plot(as.histogram(hist), main="")
+
+
+###################################################
+### code chunk number 22: article.Rnw:1323-1330 (eval = FALSE)
+###################################################
+## library("RProtoBuf")
+## library("httr")
+##
+## req <- GET('https://demo.ocpu.io/MASS/data/Animals/pb')
+## output <- unserialize_pb(req$content)
+##
+## identical(output, MASS::Animals)
+
+
+###################################################
+### code chunk number 23: article.Rnw:1380-1396 (eval = FALSE)
+###################################################
+## library("httr")
+## library("RProtoBuf")
+##
+## args <- list(n=42, mean=100)
+## payload <- serialize_pb(args, NULL)
+##
+## req <- POST (
+## url = "https://demo.ocpu.io/stats/R/rnorm/pb",
+## body = payload,
+## add_headers (
+## "Content-Type" = "application/x-protobuf"
+## )
+## )
+##
+## output <- unserialize_pb(req$content)
+## print(output)
+
+
+###################################################
+### code chunk number 24: article.Rnw:1400-1403 (eval = FALSE)
+###################################################
+## fnargs <- unserialize_pb(inputmsg)
+## val <- do.call(stats::rnorm, fnargs)
+## outputmsg <- serialize_pb(val)
+
+
More information about the Rprotobuf-commits
mailing list