binarize(transformed_chunk, data_bin_file, nb_per_chunk, ",", nbytes, endian)
index = index + nb_per_chunk
- nb_items = nb_items + nrow(data_chunk)
+ nb_items = nb_items + ncol(data_chunk)
}
nb_items #number of transformed items
}
# to compute the offset ( index i at 8 + i*data_length*nbytes )
data_ascii = do.call( cbind, lapply( indices, function(i) {
offset = 8+(i-1)*data_length*nbytes
- if (offset > data_size)
+ if (offset >= data_size)
return (NULL)
ignored = seek(data_bin, offset) #position cursor at computed offset
readBin(data_bin, "double", n=data_length, size=nbytes, endian=endian)