From c22f2d557f73ab0067d6d12eef97f52976316de6 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Thu, 12 Jan 2023 10:55:24 +0100
Subject: [PATCH] Export to XLSX: In the CF and PV tabs, hide all columns
without any values
As we have dozens of different cost variants, most of them are not relevant to a given product, so we simply hide those columns (for prototyping / finding implementation errors/debuggin, one can unhide those).
---
R/exportInsuranceContract_xlsx.R | 35 ++++++++++++++++++++++++++------
1 file changed, 29 insertions(+), 6 deletions(-)
diff --git a/R/exportInsuranceContract_xlsx.R b/R/exportInsuranceContract_xlsx.R
index a5205b9..d5104b7 100644
--- a/R/exportInsuranceContract_xlsx.R
+++ b/R/exportInsuranceContract_xlsx.R
@@ -704,10 +704,16 @@ exportAbsCFTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(
crow
}
+# Return list of all column indices witout any non-zero entries => these columns are to be hidden later
+empty.col.indices = function(df) {
+ unname(which(colSums(df != 0) == 0))
+}
+
exportPVTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(), seprows = 5, freeze = TRUE) {
if (!is.null(contract$Values$presentValues)) {
id = contract$Parameters$ContractData$id
nrrow = contract$Values$int$l
+ empty.cols = c()
blockid.row = crow
crow = crow + 2
@@ -729,6 +735,7 @@ exportPVTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
w1 = writePremiumCoefficients(wb, sheet, contract$Values$premiumCoefficients, type = "benefits", crow = crow, ccol = cl - 2, tarif = contract$tarif);
area.premiumcoeff = paste0(int2col(cl), "%d:", int2col(cl + w1 - 1), "%d");
area.premiumvals = paste0("$", int2col(cl), "$", crow + 6 + 2 + tPrem, ":$", int2col(cl + w1 - 1), "$", crow + 6 + 2 + tPrem);
+ empty.cols = c(empty.cols, empty.col.indices(contract$Values$presentValues) - 1 + cl)
cl = cl + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$Values$presentValues)),
crow = crow + 6, ccol = cl, tableName = tableName("PresentValues_Benefits_", id), styles = styles,
caption = "Leistungsbarwerte", valueStyle = styles$pv0) + 1;
@@ -736,6 +743,7 @@ exportPVTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
w2 = writePremiumCoefficients(wb, sheet, contract$Values$premiumCoefficients, type = "costs", crow = crow, ccol = cl - 2, tarif = contract$tarif);
area.costcoeff = paste0(int2col(cl), "%d:", int2col(cl + w2 - 1), "%d");
area.costvals = paste0("$", int2col(cl), "$", crow + 6 + 2 + tPrem, ":$", int2col(cl + w2 - 1), "$", crow + 6 + 2 + tPrem);
+ empty.cols = c(empty.cols, empty.col.indices(as.data.frame(costPV)) - 1 + cl)
cl = cl + writeValuesTable(wb, sheet, as.data.frame(costPV),
crow = crow + 6, ccol = cl, tableName = tableName("PresentValues_Costs_", id), styles = styles,
caption = "Kostenbarwerte", valueStyle = styles$cost0) + 1;
@@ -762,11 +770,14 @@ exportPVTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
}
for (b in contract$blocks) {
- crow = exportPVTable(
+ res = exportPVTable(
wb = wb, sheet = sheet, contract = b,
ccol = ccol, crow = crow, styles = styles, seprows = seprows, freeze = FALSE)
+ # exportPVTable returns a list of the next excel table row and a list of all empty columns (to be hidden later on)
+ crow = res$crow
+ empty.cols = intersect(empty.cols, res$empty.cols)
}
- crow
+ list(crow = crow, empty.cols = empty.cols)
}
exportCFTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(), seprows = 5, freeze = TRUE) {
@@ -774,6 +785,7 @@ exportCFTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
if (!is.null(contract$Values$cashFlows)) {
id = contract$Parameters$ContractData$id
nrrow = contract$Values$int$l
+ empty.cols = c()
blockid.row = crow
crow = crow + 2
@@ -786,11 +798,13 @@ exportCFTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
cl = ccol
cl = cl + writeAgeQTable(wb, sheet, probs = qp, crow = crow, ccol = cl, styles = styles);
+ empty.cols = c(empty.cols, empty.col.indices(contract$Values$cashFlows)- 1 + cl)
cl = cl + writeValuesTable(
wb, sheet, setInsuranceValuesLabels(contract$Values$cashFlows),
crow = crow, ccol = cl, tableName = tableName("CF_", id), styles = styles,
caption = "Leistungscashflows", valueStyle = styles$hide0) + 1;
costCF = costValuesAsDF(setInsuranceValuesLabels(contract$Values$cashFlowsCosts))
+ empty.cols = c(empty.cols, empty.col.indices(costCF)- 1 + cl)
cl = cl + writeValuesTable(
wb, sheet, costCF,
crow = crow, ccol = cl, tableName = tableName("CFcosts_", id), styles = styles,
@@ -801,11 +815,14 @@ exportCFTable = function(wb, sheet, contract, ccol = 1, crow = 1, styles = c(),
}
for (b in contract$blocks) {
- crow = exportCFTable(
+ res = exportCFTable(
wb = wb, sheet = sheet, contract = b,
ccol = ccol, crow = crow, styles = styles, seprows = seprows, freeze = FALSE)
+ # exportCFTable returns a list of the next excel table row and a list of all empty columns (to be hidden later on)
+ crow = res$crow
+ empty.cols = intersect(empty.cols, res$empty.cols)
}
- crow
+ list(crow = crow, empty.cols = empty.cols)
}
@@ -976,9 +993,12 @@ exportInsuranceContract.xlsx = function(contract, filename) {
# TODO-blocks
sheet = "Barwerte";
addValuesWorksheet(wb, sheet);
- exportPVTable(
+ res = exportPVTable(
wb = wb, sheet = sheet, contract = contract,
ccol = 1, crow = 4,styles = styles)
+ if (length(res$empty.cols) > 0) {
+ setColWidths(wb, sheet = sheet, cols = res$empty.cols, hidden = TRUE)
+ }
############################################## #
@@ -987,9 +1007,12 @@ exportInsuranceContract.xlsx = function(contract, filename) {
sheet = "Cash-Flows";
addValuesWorksheet(wb, sheet);
- exportCFTable(
+ res = exportCFTable(
wb = wb, sheet = sheet, contract = contract,
ccol = 1, crow = 4, styles = styles)
+ if (length(res$empty.cols) > 0) {
+ setColWidths(wb, sheet = sheet, cols = res$empty.cols, hidden = TRUE)
+ }
--
GitLab