From bbfa882ae4ddc6f56264148570df4cdd74c3630c Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <Reinhold.Kainhofer@at.ey.com>
Date: Tue, 3 Nov 2020 13:20:52 +0100
Subject: [PATCH] Check valid values of tariff type
Closes #59
---
R/InsuranceTarif.R | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R
index d83e24c..c978c11 100644
--- a/R/InsuranceTarif.R
+++ b/R/InsuranceTarif.R
@@ -42,6 +42,15 @@ TariffTypeEnum = objectProperties::setSingleEnum(
"dread-disease",
"endowment + dread-disease"
))
+setValidity("TariffTypeSingleEnum", function(object) {
+ if (length(object) != 1L) {
+ "Only one tariff type can be given"
+ } else if (!object %in% levels(object)) {
+ paste("Tarif type '", object, "' does not exist. Valid tariff types are:",
+ paste0("\n('", paste0(levels(object), collapse = "', '"),
+ "')"), sep = "")
+ }
+});
############# Class InsuranceTarif ###########################################
@@ -160,7 +169,7 @@ InsuranceTarif = R6Class(
#' temporary dread-disease insurance. Benefits occur either on death,
#' severe illness or survival, whichever comes first.}
#' }
- tariffType = ("wholelife"),
+ tariffType = TariffTypeEnum("wholelife"),
#' @field Parameters A data structure (nested list) containing all relevant
#' parameters describing a contract, its underlying tariff, the profit
@@ -206,7 +215,9 @@ InsuranceTarif = R6Class(
#' i = 0.01, mortalityTable = AVOe2005R.male)
initialize = function(name = NULL, type = "wholelife", tarif = "Generic Tarif", desc = "Description of tarif", ...) {
if (!missing(name)) self$name = name;
- if (!missing(type)) self$tariffType = type;
+ if (!missing(type)) {
+ self$tariffType = TariffTypeEnum(type)
+ }
if (!missing(tarif)) self$tarif = tarif;
if (!missing(desc)) self$desc = desc;
--
GitLab