fix: support for a new invalid document coming from non MS source

fix #522
davidgohel · Oct 22, 2023 · 9241ade · 9241ade
1 parent 713756f
commit 9241ade
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: officer
 Type: Package
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.6.3.004
+Version: 0.6.3.005
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "david.gohel@ardata.fr"),

diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 
 - new function `run_comment()` to create a run with a comment.
 - new function `docx_comments()` to read comments in a Word document as a data.frame.
+- Add pptx support for invalid pptx files downloaded from https://slides.new.
 
 ## Issues
 

diff --git a/R/core_properties.R b/R/core_properties.R
@@ -91,6 +91,7 @@ write_core_properties <- function(core_matrix, package_dir){
 
 drop_templatenode_from_app <- function(package_dir){
   file <- file.path(package_dir, "docProps", "app.xml")
+  if (!file.exists(file)) return()
   doc <- read_xml(file)
   node_template <- xml_child(doc, "d1:Template")
   if (!inherits(node_template, "xml_missing")) {