From be32e980fb2d99d3ba3b8f4fd1fafa4dfa1ba477 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 3 Nov 2020 01:59:10 +0100
Subject: [PATCH] Allow floating-point numbers for new sum insured of dynamic
increases
---
R/InsuranceContract.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R
index 92e43a0..4a938bd 100644
--- a/R/InsuranceContract.R
+++ b/R/InsuranceContract.R
@@ -479,7 +479,7 @@ InsuranceContract = R6Class(
# Override with arguments explicitly given
arguments = list(...)
params[names(arguments)] = arguments[names(arguments)]
- params$comment = sprintf("Dynamic increase at time %d to sum %d", t, NewSumInsured)
+ params$comment = sprintf("Dynamic increase at time %d to sum %02f", t, NewSumInsured)
do.call(self$addBlock, params)
},
--
GitLab