0

我想以二进制格式写入（然后检索）数据。我试图让一个最小的例子至少工作到气味测试的水平（读取输入应该看起来像书面输出），但我没有得到它，并且始终正确。我的机器是带有小端序的 linux，但由于这里是恒定的，所以我在调用中省略了它。我也不确定是否最好size在写入中指定参数，或者将其省略。无论如何，加载的输入看起来不像out：

out<-seq(1,50,2)

##write
write<-file('~/output.txt','wb')
writeBin(out,con=write,size=4)
close(write)

##read
read<-file('~/output.txt','rb')
readBin(con=read,what=numeric(),n=length(out))
# [1] 3.200001e+01 3.276801e+04 1.048576e+06 1.677722e+07 1.006633e+08 4.026532e+08     1.610613e+09 6.442452e+09 1.503239e+10 3.006478e+10 6.012955e+10 1.202591e+11
close(read)
4

1 回答 1

7

这是一个工作示例：

R> dat <- seq(1,50,2)
R> dat
 [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49
R>

我们只是将对象写入二进制连接——省略第三个参数：

R> con <- file("/tmp/foo.bin", "wb")
R> writeBin(dat, con)
R> close(con)
R>

然后可以回读：

R> con <- file("/tmp/foo.bin", "rb")
R> dat2 <- readBin(con, what="numeric", n=length(dat))
R> dat2
 [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49
R>
R> all.equal(dat, dat2)
[1] TRUE

但是，您需要存储长度。我使用了一种内部文件格式，它首先写入关于行、列、“格式号”的固定（已知）数量的整数，......然后读/写总共行*列数字。我们还将它包装到一个 gzip 文件连接中。

您甚至可以将其概括为在数据框中写入列——但如果 R​​ 是您唯一的读取器/写入器，那么已经存在的序列化 viasave()会更好。

于 2012-11-13T20:56:47.753 回答