From 9b9c12fc19553dc5d96f94406d7b5b76f7ddfd0c Mon Sep 17 00:00:00 2001
From: Kainhofer Reinhold <reinhold.kainhofer@generali.com>
Date: Tue, 24 Mar 2020 18:24:03 +0100
Subject: [PATCH] Fix UTF-8 strings in Windows

---
 R/exportInsuranceContract_xlsx.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/exportInsuranceContract_xlsx.R b/R/exportInsuranceContract_xlsx.R
index 7fc20c6..10f9fe7 100644
--- a/R/exportInsuranceContract_xlsx.R
+++ b/R/exportInsuranceContract_xlsx.R
@@ -512,10 +512,10 @@ exportProfitParticipationTable = function(wb, sheet, contract, ccol = 1, crow =
 
     # Add table headers for the various sections:
     if (length(baseCols) > 0) {
-      writeTableCaption(wb, sheet, "Basisgr��en", rows = crow, cols = baseCols + ccol.table, style = styles$header);
+      writeTableCaption(wb, sheet, "Basisgrößen", rows = crow, cols = baseCols + ccol.table, style = styles$header);
     }
     if (length(rateCols) > 0) {
-      writeTableCaption(wb, sheet, "Gewinnbeteiligungss�tze", rows = crow, cols = rateCols + ccol.table, style = styles$header);
+      writeTableCaption(wb, sheet, "Gewinnbeteiligungssätze", rows = crow, cols = rateCols + ccol.table, style = styles$header);
     }
     if (length(profitCols) > 0) {
       writeTableCaption(wb, sheet, "GB Zuweisungen", rows = crow, cols = profitCols + ccol.table, style = styles$header);
@@ -530,10 +530,10 @@ exportProfitParticipationTable = function(wb, sheet, contract, ccol = 1, crow =
       writeTableCaption(wb, sheet, "Todesfallleistung", rows = crow, cols = deathCols + ccol.table, style = styles$header);
     }
     if (length(surrenderCols) > 0) {
-      writeTableCaption(wb, sheet, "R�ckkauf", rows = crow, cols = surrenderCols + ccol.table, style = styles$header);
+      writeTableCaption(wb, sheet, "Rückkauf", rows = crow, cols = surrenderCols + ccol.table, style = styles$header);
     }
     if (length(premiumWaiverCols) > 0) {
-      writeTableCaption(wb, sheet, "Pr�mienfreistellung", rows = crow, cols = premiumWaiverCols + ccol.table, style = styles$header);
+      writeTableCaption(wb, sheet, "Prämienfreistellung", rows = crow, cols = premiumWaiverCols + ccol.table, style = styles$header);
     }
 
     exportBlockID(wb, sheet, id = id, rows = blockid.row, cols = ccol:cl, styles = styles)
-- 
GitLab