[drawing] read xdr:sp if available

JanMarvin · Dec 31, 2024 · 5d062ca · 5d062ca
1 parent 2dedc99
commit 5d062ca
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/class-workbook.R b/R/class-workbook.R
@@ -6387,6 +6387,7 @@ wbWorkbook <- R6::R6Class(
       pic   <- xml_node(xml, "xdr:wsDr", "xdr:absoluteAnchor", "xdr:pic")
       grpSp <- xml_node(xml, "xdr:wsDr", "xdr:absoluteAnchor", "xdr:grpSp")
       grFrm <- xml_node(xml, "xdr:wsDr", "xdr:absoluteAnchor", "xdr:graphicFrame")
+      sp    <- xml_node(xml, "xdr:wsDr", "xdr:absoluteAnchor", "xdr:sp")
       clDt  <- xml_node(xml, "xdr:wsDr", "xdr:absoluteAnchor", "xdr:clientData")
 
       # include rvg graphic from specific position to one or two cell anchor
@@ -6453,6 +6454,7 @@ wbWorkbook <- R6::R6Class(
             pic,
             grpSp,
             grFrm,
+            sp,
             clDt
           ),
           xml_attributes = c(