Merge pull request #478 from ycphs/restore_load_example

fix loading "loadExample.xlsx"
ycphs · Jul 19, 2024 · 853c9ce · 853c9ce
2 parents 36a41ba + c6b3517
commit 853c9ce
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/loadWorkbook.R b/R/loadWorkbook.R
@@ -609,7 +609,11 @@ loadWorkbook <- function(file, xlsxFile = NULL, isUnzipped = FALSE) {
       wb$Content_Types <- c(wb$Content_Types, sprintf('<Override PartName="/xl/slicerCaches/slicerCache%s.xml" ContentType="application/vnd.ms-excel.slicerCache+xml"/>', inds))
       wb$slicerCaches <- sapply(slicerCachesXML[order(nchar(slicerCachesXML), slicerCachesXML)], function(x) removeHeadTag(cppReadFile(x)))
       wb$workbook.xml.rels <- c(wb$workbook.xml.rels, sprintf('<Relationship Id="rId%s" Type="http://schemas.microsoft.com/office/2007/relationships/slicerCache" Target="slicerCaches/slicerCache%s.xml"/>', 1E5 + inds, inds))
-      wb$workbook$extLst <- c(wb$workbook$extLst, genSlicerCachesExtLst(1E5 + inds))
+
+      if (!grepl("slicerCaches", wb$workbook$extLst))
+        wb$workbook$extLst <- c(wb$workbook$extLst, genSlicerCachesExtLst(1E5 + inds))
+      else
+        wb$workbook$extLst <- genSlicerCachesExtLst(1E5 + inds)
     }