- cat("...Compute contributions and serialize them\n")
- nb_curves = binarizeTransform(getSeries,
- function(series) curvesToContribs(series, wav_filt, contrib_type),
- contribs_file, nb_series_per_chunk, nbytes, endian)
+ cat("...Compute contributions and serialize them (or retrieve past binary file)\n")
+ if (!file.exists(contribs_file))
+ {
+ nb_curves = binarizeTransform(getSeries,
+ function(series) curvesToContribs(series, wav_filt, contrib_type),
+ contribs_file, nb_series_per_chunk, nbytes, endian)
+ }
+ else
+ {
+ # TODO: duplicate from getDataInFile() in de_serialize.R
+ contribs_size = file.info(contribs_file)$size #number of bytes in the file
+ contrib_length = readBin(contribs_file, "integer", n=1, size=8, endian=endian)
+ nb_curves = (contribs_size-8) / (nbytes*contrib_length)
+ }