require(collUtils)
rbed_obj = rBed("test.bed")
geno = rbed_obj$readBed()
geno = getJArray(geno)
print(geno)
fn = tempfile()
f = file(fn, "wb")
writeBin("a", f)
writeBin("b", f)
writeBin("c", f)
close(f)
file.info(fn)$size == 6
truncateEndOfFile(fn, 1)
Run the code above in your browser using DataLab