# NOT RUN {
## spoof the information needed to create a provstore
library(fastdigest)
code = c("x = 5", "y = x + 1")
outvars = c("x", "y")
outvarhashes = c(fastdigest(5), fastdigest(6))
outvarclasses = rep("numeric", 2)
invars = c("", "x")
invarhashes = c("", fastdigest(5))
invarclasses = c("", "numeric")
ps = ProvStoreDF(outvars = outvars,
outvarhashes = outvarhashes,
outvarclasses = outvarclasses,
invars = invars,
invarhashes = invarhashes,
invarclasses = invarclasses,
code = code,
agent = "coolguyorgirl")
df = data.frame(outputvar = outvars,
outputvarhash = outvarhashes,
outputvarclass = outvarclasses,
inputvar= invars,
inputvarhash = invarhashes,
inputvarclass = invarclasses,
agent = "coolgirloruy",
code = code,
codehash = sapply(code, fastdigest),
stringsAsFactors = FALSE)
ps2 = ProvStoreDF(df = df)
# }
Run the code above in your browser using DataLab