+#' @rdname de_serialize
+#' @export
+binarizeTransform = function(getData, transform, data_bin_file, nb_per_chunk,
+ nbytes=4, endian=.Platform$endian)
+{
+ nb_items = 0
+ index = 1
+ repeat
+ {
+ data_chunk = getData((index-1)+seq_len(nb_per_chunk))
+ if (is.null(data_chunk))
+ break
+ transformed_chunk = transform(data_chunk)
+ 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
+}
+