的Base64編碼.Rda文件

Question

所有，

我試圖找出如何把.Rda文件轉換成Base64編碼爲它運到，並從一個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文件，它拋出一個神奇的數字錯誤。就像我說的，我想我在這裏的基地，任何幫助將不勝感激。非常感謝。

Answer 1

下面的步驟應該允許正確的編碼/正確的順序解碼

#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編碼版本寫入光盤。