From 6e7a9d93c3c4eb07d9c08c4c6932ec851ffbeccc Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sun, 24 Apr 2016 23:11:59 +0200
Subject: [PATCH] Improve formatting of Excel export
---
R/.gitignore | 1 +
R/exportInsuranceContract_xlsx.R | 41 ++++++++++++++++++++++----------
2 files changed, 30 insertions(+), 12 deletions(-)
create mode 100644 R/.gitignore
diff --git a/R/.gitignore b/R/.gitignore
new file mode 100644
index 0000000..d392185
--- /dev/null
+++ b/R/.gitignore
@@ -0,0 +1 @@
+dummy.R
diff --git a/R/exportInsuranceContract_xlsx.R b/R/exportInsuranceContract_xlsx.R
index 8a3e0ac..2f2160d 100644
--- a/R/exportInsuranceContract_xlsx.R
+++ b/R/exportInsuranceContract_xlsx.R
@@ -13,6 +13,7 @@ writeAgeQTable = function (wb, sheet, probs, crow=1, ccol=1, styles=list()) {
tableStyle = "TableStyleMedium3", withFilter = FALSE, headerStyle = styles$tableHeader);
freezePane(wb, sheet, firstActiveRow=crow+2, firstActiveCol = ccol+2)
addStyle(wb, sheet, style=styles$center, rows=(crow+2):(crow+1+dim(probs)[[1]]), cols=ccol:(ccol+1), gridExpand = TRUE, stack=TRUE);
+ addStyle(wb, sheet, style=styles$qx, rows=(crow+2):(crow+1+dim(probs)[[1]]), cols=(ccol+2):(ccol+3), gridExpand = TRUE, stack=TRUE);
dim(probs)[[2]] + 2;
};
@@ -137,7 +138,10 @@ exportInsuranceContract.xlsx = function(contract, filename) {
halign="center", valign="center", textDecoration="bold"),
tableHeader = createStyle(halign="center", valign="center", textDecoration="bold"),
hide0 = createStyle(numFmt="General; General; \"\""),
+ currency0 = createStyle(numFmt="[$€-C07] #,##0.00;[red]-[$€-C07] #,##0.00;\"\""),
cost0 = createStyle(numFmt="0.000%; 0.000%; \"\""),
+ pv0 = createStyle(numFmt="0.00000;-0.00000;\"\""),
+ qx = createStyle(numFmt="0.000000"),
wrap = createStyle(wrapText=TRUE),
center = createStyle(halign="center", valign="center")
);
@@ -154,24 +158,25 @@ exportInsuranceContract.xlsx = function(contract, filename) {
addWorksheet(wb, "Cash-Flows");
# Print out general Contract and Tariff information, including results
+ sheet = "Tarifinformationen"
crow = 1;
- writeData(wb, "Tarifinformationen", matrix(c(
+ writeData(wb, sheet, matrix(c(
"Tarif:", contract$tarif$tarif,
"Tarifname:", contract$tarif$name,
"Description:", contract$tarif$desc
), 3, 2, byrow = TRUE), startCol=1, startRow=1, colNames=FALSE, rowNames=FALSE);
- mergeCells(wb, "Tarifinformationen", cols=2:10, rows=1);
- mergeCells(wb, "Tarifinformationen", cols=2:10, rows=2);
- mergeCells(wb, "Tarifinformationen", cols=2:10, rows=3);
- addStyle(wb, "Tarifinformationen", style=styles$wrap, rows=3, cols=2:10, stack=TRUE);
- addStyle(wb, "Tarifinformationen", style=createStyle(valign="top"), rows=1:3, cols=1:10, gridExpand=TRUE, stack=TRUE);
+ mergeCells(wb, sheet, cols=2:10, rows=1);
+ mergeCells(wb, sheet, cols=2:10, rows=2);
+ mergeCells(wb, sheet, cols=2:10, rows=3);
+ addStyle(wb, sheet, style=styles$wrap, rows=3, cols=2:10, stack=TRUE);
+ addStyle(wb, sheet, style=createStyle(valign="top"), rows=1:3, cols=1:10, gridExpand=TRUE, stack=TRUE);
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE);
crow = crow+4;
################################################
# Basic parameters
################################################
- sheet = "Tarifinformationen"
values=c(
"Sum insured"=contract$params$sumInsured,
"Mortality table"=contract$tarif$mortalityTable@name,
@@ -188,6 +193,7 @@ exportInsuranceContract.xlsx = function(contract, filename) {
writeDataTable(wb, sheet, as.data.frame(t(values)),
startCol=1, startRow=crow+1, colNames=TRUE, rowNames=FALSE,
tableStyle="TableStyleMedium3", withFilter = FALSE, headerStyle = styles$tableHeader);
+
crow = crow + 4;
# Premiums
@@ -203,6 +209,8 @@ exportInsuranceContract.xlsx = function(contract, filename) {
costtable = costtable[costtable[,"Kostensatz"]!=0.0000,]
writeData(wb, sheet, costtable, startCol=1, startRow=crow+1, colNames=FALSE, rowNames=FALSE,borders = "surrounding", borderColour = "red", borderStyle = "medium")
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
+
################################################
# Print out Reserves and premium decomposition
################################################
@@ -215,10 +223,11 @@ exportInsuranceContract.xlsx = function(contract, filename) {
ccol = ccol + writeAgeQTable(wb, sheet, probs=qp, crow=crow, ccol=1, styles=styles);
ccol = ccol + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$reserves)),
crow=crow, ccol=ccol, tableName="Reserves",
- caption="Reserven", valueStyle=styles$hide0) + 1;
+ caption="Reserven", valueStyle=styles$currency0) + 1;
ccol = ccol + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$premiumComposition)),
crow=crow, ccol=ccol, tableName="Premium_Decomposition",
- caption = "Prämienzerlegung", valueStyle=styles$hide0) + 1;
+ caption = "Prämienzerlegung", valueStyle=styles$currency0) + 1;
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
################################################
@@ -233,7 +242,8 @@ exportInsuranceContract.xlsx = function(contract, filename) {
ccol = ccol + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$absPresentValues)),
crow=crow, ccol=ccol, tableName="PresentValues_absolute",
- caption = "abs. Leistungs- und Kostenbarwerte", valueStyle=styles$hide0) + 1;
+ caption = "abs. Leistungs- und Kostenbarwerte", valueStyle=styles$currency0) + 1;
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
################################################
@@ -247,7 +257,8 @@ exportInsuranceContract.xlsx = function(contract, filename) {
ccol = ccol + writeAgeQTable(wb, sheet, probs=qp, crow=crow, ccol=1, styles=styles);
ccol = ccol + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$absCashFlows)),
crow=crow, ccol=ccol, tableName="CashFlows_absolute",
- caption="abs. Leistungs- und Kostencashflows", withFilter=TRUE, valueStyle=styles$hide0) + 1;
+ caption="abs. Leistungs- und Kostencashflows", withFilter=TRUE, valueStyle=styles$currency0) + 1;
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
################################################
@@ -268,7 +279,7 @@ exportInsuranceContract.xlsx = function(contract, filename) {
area.premiumvals = paste0("$", int2col(ccol), "$", crow+6+2, ":$", int2col(ccol+w1-1), "$", crow+6+2);
ccol = ccol + writeValuesTable(wb, sheet, as.data.frame(setInsuranceValuesLabels(contract$presentValues)),
crow=crow+6, ccol=ccol, tableName="PresentValues_Benefits",
- caption = "Leistungsbarwerte", valueStyle=styles$hide0) + 1;
+ caption = "Leistungsbarwerte", valueStyle=styles$pv0) + 1;
w2 = writePremiumCoefficients(wb, sheet, contract$premiumCoefficients, type="costs", crow=crow, ccol=ccol-2, tarif=contract$tarif);
area.costcoeff = paste0(int2col(ccol), "%d:", int2col(ccol+w2-1), "%d");
@@ -281,13 +292,17 @@ exportInsuranceContract.xlsx = function(contract, filename) {
writeData(wb, sheet, as.data.frame(c("Nettoprämie", contract$premiums[["net"]],"Zillmerprämie", contract$premiums[["Zillmer"]], "Bruttoprämie", contract$premiums[["gross"]])), startCol = 1, startRow=crow, colNames = FALSE, borders = "rows");
for (i in 0:5) {
writeFormula(wb, sheet, paste0("SUMPRODUCT(", sprintf(area.premiumcoeff, crow+i, crow+i), ", ", area.premiumvals, ") + SUMPRODUCT(", sprintf(area.costcoeff, crow+i, crow+i), ", ", area.costvals, ")"), startCol = 3, startRow = crow+i);
+ addStyle(wb, sheet, style=styles$pv0, rows = crow+i, cols = 3, stack = TRUE);
}
for (i in c(0,2,4)) {
writeFormula(wb, sheet, paste0(int2col(3), crow+i, "/", int2col(3), crow+i+1), startCol=2, startRow = crow+i);
+ addStyle(wb, sheet, style=styles$pv0, rows = crow+i, cols = 2, stack = TRUE);
}
for (i in c(1,3,5)) {
writeFormula(wb, sheet, paste0(int2col(2), crow+i-1, "*", contract$params$sumInsured), startCol=2, startRow = crow+i);
+ addStyle(wb, sheet, style=styles$currency0, rows = crow+i, cols = 1:2, stack = TRUE, gridExpand = TRUE);
}
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
################################################
@@ -306,6 +321,8 @@ exportInsuranceContract.xlsx = function(contract, filename) {
ccol = ccol + writeValuesTable(wb, sheet, costCF,
crow=crow, ccol=ccol, tableName="CashFlows_Costs",
caption="Kostencashflows", withFilter=TRUE, valueStyle=styles$cost0) + 1;
+ setColWidths(wb, sheet, cols = 1:50, widths = "auto", ignoreMergedCells = TRUE)
+
openxlsx::saveWorkbook(wb, filename, overwrite = TRUE)
--
GitLab