fix: print to console method

- if doc is empty, don't display content fix #463
davidgohel · Jan 5, 2023 · 59084ff · hongyuanjia · Jan 5, 2023 · hongyuanjia
1 parent ae4bc8e
commit 59084ff
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: officer
 Type: Package
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.5.1.012
+Version: 0.5.1.013
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "[email protected]"),

diff --git a/R/read_docx.R b/R/read_docx.R
@@ -144,9 +144,13 @@ print.rdocx <- function(x, target = NULL, ...){
     names(style_sample) <- style_names$style_name
     print(style_sample)
 
-    cursor_elt <- docx_current_block_xml(x)
-    cat("\n* Content at cursor location:\n")
-    print(node_content(cursor_elt, x))
+    if (length(read_docx()) > 1) {
+      cursor_elt <- docx_current_block_xml(x)
+      cat("\n* Content at cursor location:\n")
+      print(node_content(cursor_elt, x))
+    } else {
+      cat("\n* empty document\n")
+    }
     return(invisible())
   }
 

diff --git a/tests/testthat/_snaps/docx-add/body_add-elements.png b/tests/testthat/_snaps/docx-add/body_add-elements.png
diff --git a/tests/testthat/_snaps/docx-add/docx-elements.png b/tests/testthat/_snaps/docx-add/docx-elements.png