[xlsb] remove invalid definedNames

JanMarvin · Jan 13, 2025 · a2c34f2 · a2c34f2
1 parent 807694c
commit a2c34f2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/wb_load.R b/R/wb_load.R
@@ -1789,6 +1789,12 @@ wb_load <- function(
       }
     }
 
+    # remove defined names without value. these are not valid and are probably
+    # remnants of xti
+    if (length(dfn_nms <- wb$workbook$definedNames)) {
+      wb$workbook$definedNames <- dfn_nms[xml_value(dfn_nms, "definedName") != ""]
+    }
+
     # create valid rich text strings in shared strings table
     if (any(sel <- grepl("<FONT_\\d+/>", wb$sharedStrings))) {