Add history to the contract class

R/InsuranceContract.R

@@ -48,6 +48,11 @@ InsuranceContract = R6Class(
       premiumComposition = NA
     ),
 
+    #### Keeping the history of all contract changes during its lifetime
+    history = list(
+
+    ),
+
 
     #### The code:
 
@@ -80,6 +85,11 @@ InsuranceContract = R6Class(
       self$recalculate();
     },
 
+    addHistorySnapshot = function(time=0, comment="Initial contract values", type="Contract", params=self$params, values = self$values) {
+      self$history = c(self$history,
+                       list("time"=time, "comment"=comment, "type"=type, "params"=params, "values"=values));
+    },
+
     recalculate = function() {
       self$determineTransitionProbabilities();
       self$determineCashFlows();