fix: remove relationships in sanitize_images()

fix #708

Author: davidgohel

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: officer
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.7.3.002
+Version: 0.7.3.003
 Authors@R: c(
     person("David", "Gohel", , "david.gohel@ardata.fr", role = c("aut", "cre")),
     person("Stefan", "Moog", , "moogs@gmx.de", role = "aut"),

NEWS.md

@@ -4,6 +4,7 @@
 
 - fix feed_from_xml for 'officedown'.
 - `remove_field` argument of function `docx_summary()` now work as expected.
+- also remove relationships in `sanitize_images()` (#708).
 
 # officer 0.7.2
 

R/post-proc.R

@@ -254,6 +254,18 @@ sanitize_images <- function(x, warn_user = TRUE) {
       file.path(base_doc, setdiff(existing_img, image_files)),
       force = TRUE
     )
+
+    # these iterations will remove removed images from relationships
+    for (doc_part in all_docs) {
+      rel <- doc_part$relationship()
+      rel_data <- rel$get_data()
+      rel_data <- rel_data[basename(rel_data$type) %in% "image",]
+      rel_data <- rel_data[!file.exists(file.path(base_doc, rel_data$target)),]
+      if (nrow(rel_data) > 0) {
+        rel$remove(rel_data$target)
+        doc_part$save()
+      }
+    }
   } else if (inherits(x, "rpptx")) {
 
     rel_files <- list.files(