From 401c50a263fad10eaebfdca831d3a420841e800d Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Fri, 12 Aug 2022 00:50:05 +0200
Subject: [PATCH] Fix addBlock function (default comment value caused crash)
---
R/InsuranceContract.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R
index 9d033ee..43da58d 100644
--- a/R/InsuranceContract.R
+++ b/R/InsuranceContract.R
@@ -376,7 +376,7 @@ InsuranceContract = R6Class(
#'
#' @examples
#' # TODO
- addBlock = function(id = NULL, block = NULL, t = block$Values$int$blockStart, comment = comment, ...) {
+ addBlock = function(id = NULL, block = NULL, t = block$Values$int$blockStart, comment = paste0("Additional block at time t=", t), ...) {
if (getOption('LIC.debug.addBlock', FALSE)) {
browser();
}
--
GitLab