Add parameter to 'construct.ranges' to construct cumulative ranges

Works towards se-sic#265.

Signed-off-by: Maximilian Löffler <[email protected]>

util-misc.R

@@ -524,10 +524,11 @@ get.time.period.by.amount = function(start.date, end.date, amount) {
 #'                       [default: FALSE]
 #' @param raw whether to return pairs of POSIXct objects or strings rather than
 #'            formatted strings [default: FALSE]
+#' @param construct.cumulative whether to construct cumulative ranges [default: FALSE]
 #'
 #' @return the constructed ranges, either formatted or raw; the raw ranges are a named list,
 #'         for which the formatted ranges are the names
-construct.ranges = function(revs, sliding.window = FALSE, raw = FALSE) {
+construct.ranges = function(revs, sliding.window = FALSE, raw = FALSE, cumulative = FALSE) {
 
     ## make sure that, at least, two revisions are provided
     if (length(revs) < 2) {
@@ -544,8 +545,14 @@ construct.ranges = function(revs, sliding.window = FALSE, raw = FALSE) {
     if (sliding.window)
         offset = 2
 
-    ## extract sequences of revisions
-    seq1 = revs[ 1:(length(revs) - offset) ]
+    ## extract start of ranges
+    if (cumulative) {
+        seq1 = rep(revs[1], length(revs) - offset)
+    } else {
+        seq1 = revs[ 1:(length(revs) - offset) ]
+    }
+
+    ## extract end of reanges
     if ((offset + 1) <= length(revs)) {
         seq2 = revs[ (offset + 1):length(revs) ]
     } else {