From 98f82d66a65acc8ab09f403b85795bf912d1e23a Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@rub.de>
Date: Wed, 8 Nov 2023 09:24:51 +0100
Subject: [PATCH] [pt] allow slicer variables to contain whitespaces

---
 R/class-workbook.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/class-workbook.R b/R/class-workbook.R
index 1ecdfe483..ec9e57585 100644
--- a/R/class-workbook.R
+++ b/R/class-workbook.R
@@ -1522,7 +1522,7 @@ wbWorkbook <- R6::R6Class(
       sel <- which(pt$name == pivot_table)
       cid <- pt$cacheId[sel]
 
-      uni_name <- paste0(slicer, cid)
+      uni_name <- paste0(stringi::stri_replace_all_fixed(slicer, ' ', '_'), cid)
 
       ### slicer_cache
       sortOrder <- NULL