全部,
[我正在尝试找出如何将.Rda文件放入Base64编码中,以便将其传送到API或从API传送出去。我真的在努力做到这一点。这是我所拥有的,但我认为它离目标很远:
cuse <- read.table("http://data.princeton.edu/wws509/datasets/cuse.dat", header=TRUE)
lrfit <- glm( cbind(using, notUsing) ~ age + education + wantsMore , family = binomial, data=cuse)
filename <- "C:/test.Rda"
save(lrfit, file=filename)
library("base64enc")
tst <- base64encode(filename)
save(tst, file="C:/encode.Rda")
base64decode(file="C:/encode.Rda", output = "C:/decode.Rda")
[当我尝试打开decode.Rda文件时,它将引发幻数错误。就像我说的,我认为我离这里很远,任何帮助将不胜感激。非常感谢。
这里有正确的步骤顺序,应允许正确的编码/解码
#sample data
dd<-iris
fn <- "test.rda"
fnb4 <- "test.rdab64"
#save rda
save(iris, file=fn)
#write base64 encoded version
library(base64enc)
txt <- base64encode(fn)
ff <- file(fnb4, "wb")
writeBin(txt, ff)
close(ff)
#decode base64 encoded version
base64decode(file=fnb4, output = "decode.rda")
(load("decode.rda"))
# [1] "iris"
问题是您的第二个save()
。那是在创建另一个RDA文件,其内部编码有base64数据。它没有将RDA文件的base64编码版本写入光盘。