[load] read file with d3p1 namespace

R/wb_load.R

@@ -106,8 +106,13 @@ wb_load <- function(
   wb <- wb_workbook()
   wb$path <- file
 
-  grep_xml <- function(pattern, perl = TRUE, value = TRUE, ...) {
+  # There is one known file in #1194. this file has lower case folders, while
+  # the references in the file are the usual camel case.
+  needs_lower <- ifelse(any(grepl("\\[content_types\\].xml$", xmlFiles)), TRUE, FALSE)
+
+  grep_xml <- function(pattern, perl = TRUE, value = TRUE, to_lower = needs_lower, ...) {
     # targets xmlFiles; has presents
+    if (to_lower) pattern <- tolower(pattern)
     grep(pattern, xmlFiles, perl = perl, value = value, ...)
   }
 
@@ -423,6 +428,22 @@ wb_load <- function(
     sheets <- xml_attr(workbook_xml, "workbook", "sheets", "sheet")
     sheets <- rbindlist(sheets)
 
+    if (any(grepl("d3p1", nams <- names(sheets)))) {
+      msg <- paste0(
+        "The `{%s}` namespace(s) has been removed from the xml files, for example:\n",
+        "\t<%s:ID> changed to:\n",
+        "\t<r:ID>\n",
+        "See 'Details' in ?openxlsx2::wb_load() for more information."
+      )
+      warning(sprintf(msg, "d3p1", "d3p1"))
+      nams <- stringi::stri_replace_all_fixed(
+        str         = nams,
+        pattern     = c("d3p1:", ":d3p1"),
+        replacement = c("r:", "")
+      )
+      names(sheets) <- nams
+    }
+
     ## Some veryHidden sheets do not have a sheet content and their rId is empty.
     ## Such sheets need to be filtered out because otherwise their sheet names
     ## occur in the list of all sheet names, leading to a wrong association

tests/testthat/test-read_sources.R

@@ -470,3 +470,15 @@ test_that("file extension handling works", {
   expect_silent(wb_save(wb, file = tempfile(fileext = ".XLSM")))
 
 })
+
+
+test_that("loading d3p1 file works", {
+
+  fl  <- testfile_path("gh_issue_1194.xlsx")
+  df <- wb_to_df(wb)
+
+  exp <- c(1347, 31)
+  got <- dim(df)
+  expect_equal(exp, got)
+
+})