Running ‘testthat.R’ [22s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > suppressPackageStartupMessages({
  +   library(testthat)
  +   library(officer)
  +   library(magrittr)
  +   library(xml2)
  + })
  > 
  > test_check("officer")
  ── 1. Error: add text into placeholder (@test-pptx-add-at.R#6)  ────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_empty_at(left = 1, 
         top = 1, width = 3, height = 2) at testthat/test-pptx-add-at.R:6
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 2. Error: add img into placeholder (@test-pptx-add-at.R#40)  ────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_img_at(src = img.file, 
         left = 1, top = 1, height = 1.06, width = 1.39) at testthat/test-pptx-add-at.R:40
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 3. Error: add text into placeholder (@test-pptx-add.R#6)  ───────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_empty(type = "body") at testthat/test-pptx-add.R:6
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 4. Error: ph_add_par append when text alrady exists (@test-pptx-add.R#28)  ──
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "This is a ") %>% ph_add_par(level = 2) at testthat/test-pptx-add.R:28
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 5. Error: ph_add_text with hyperlink (@test-pptx-add.R#47)  ─────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "This is a ") %>% ph_add_par(level = 2) %>% ph_add_text(str = "test", style = small_red, 
         href = href_) at testthat/test-pptx-add.R:47
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 6. Error: add img into placeholder (@test-pptx-add.R#67)  ───────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_img(type = "body", 
         src = img.file, height = 1.06, width = 1.39) at testthat/test-pptx-add.R:67
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 7. Error: add formatted par into placeholder (@test-pptx-add.R#88)  ─────────
  Error closing file
  1: read_pptx() %>% add_slide(layout = "Title and Content", master = "Office Theme") %>% 
         ph_empty(type = "body") %>% ph_add_fpar(value = fpar_, type = "body", level = 2) at testthat/test-pptx-add.R:88
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., layout = "Title and Content", master = "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 8. Error: add xml into placeholder (@test-pptx-add.R#106)  ──────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_from_xml(type = "body", 
         value = xml_str) %>% ph_from_xml_at(left = 1, top = 1, width = 3, height = 3, 
         value = xml_str) at testthat/test-pptx-add.R:106
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 9. Error: link to another shape (@test-pptx-add.R#119)  ─────────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "This is a ") %>% ph_add_par(level = 2) %>% ph_add_text(str = "test", style = small_red, 
         slide_index = 1) at testthat/test-pptx-add.R:119
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 10. Error: ph_add_text with hyperlink (@test-pptx-add.R#138)  ───────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "This is a ") %>% ph_add_par(level = 2) %>% ph_add_text(str = "test", style = small_red, 
         href = href_) at testthat/test-pptx-add.R:138
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 11. Error: slidelink shape (@test-pptx-add.R#159)  ──────────────────────────
  Error closing file
  1: read_pptx() %>% add_slide(layout = "Title and Content", master = "Office Theme") %>% 
         ph_with_text(type = "title", str = "Un titre 1") %>% ph_with_text(type = "body", 
         str = "text 1") %>% add_slide(layout = "Title and Content", master = "Office Theme") %>% 
         ph_with_text(type = "title", str = "Un titre 2") %>% on_slide(index = 1) at testthat/test-pptx-add.R:159
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., layout = "Title and Content", master = "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 12. Error: hyperlink shape (@test-pptx-add.R#186)  ──────────────────────────
  Error closing file
  1: add_slide(doc, layout = "Title and Content", master = "Office Theme") at testthat/test-pptx-add.R:186
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 13. Error: layout properties (@test-pptx-info.R#14)  ────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-info.R:14
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 14. Error: slide summary (@test-pptx-info.R#33)  ────────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-info.R:33
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 15. Error: console printing (@test-pptx-misc.R#11)  ─────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-misc.R:11
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 16. Error: check extention and print document (@test-pptx-misc.R#18)  ───────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-misc.R:18
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 17. Error: check template (@test-pptx-misc.R#29)  ───────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-misc.R:29
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 18. Error: slide remove (@test-pptx-misc.R#44)  ─────────────────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "Hello world 1") %>% add_slide("Title and Content", "Office Theme") %>% 
         ph_with_text(type = "body", str = "Hello world 2") %>% add_slide("Title and Content", 
         "Office Theme") %>% ph_with_text(type = "body", str = "Hello world 3") at testthat/test-pptx-misc.R:44
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 19. Error: ph remove (@test-pptx-misc.R#66)  ────────────────────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "Hello world 1") %>% add_slide("Title and Content", "Office Theme") %>% 
         ph_with_text(type = "body", str = "Hello world 2") %>% add_slide("Title and Content", 
         "Office Theme") %>% ph_with_text(type = "body", str = "Hello world 3") at testthat/test-pptx-misc.R:66
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 20. Error: cursor is incremented as expected (@test-pptx-misc.R#85)  ────────
  Error closing file
  1: add_slide(x, "Title Slide", "Office Theme") at testthat/test-pptx-misc.R:85
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 21. Error: check slide selection (@test-pptx-selections.R#5)  ───────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-selections.R:5
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 22. Error: check errors (@test-pptx-selections.R#32)  ───────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", "Office Theme") at testthat/test-pptx-selections.R:32
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 23. Error: get shape id (@test-pptx-selections.R#47)  ───────────────────────
  Error closing file
  1: read_pptx() %>% add_slide("Title and Content", "Office Theme") %>% ph_with_text(type = "body", 
         str = "hello") at testthat/test-pptx-selections.R:47
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_slide(., "Title and Content", "Office Theme")
  9: x$slide$update()
  10: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  11: FUN(X[[i]], ...)
  12: container$clone()$feed(x)$fortify_id()
  13: self$save()
  14: write_xml(private$doc, file = private$filename)
  15: write_xml.xml_document(private$doc, file = private$filename)
  16: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 24. Error: ph_with_table (@test-pptx-table.R#5)  ────────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", master = "Office Theme") at testthat/test-pptx-table.R:5
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ── 25. Error: pml structure (@test-pptx-table.R#14)  ───────────────────────────
  Error closing file
  1: add_slide(x, "Title and Content", master = "Office Theme") at testthat/test-pptx-table.R:14
  2: x$slide$update()
  3: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  4: FUN(X[[i]], ...)
  5: container$clone()$feed(x)$fortify_id()
  6: self$save()
  7: write_xml(private$doc, file = private$filename)
  8: write_xml.xml_document(private$doc, file = private$filename)
  9: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 387 SKIPPED: 0 FAILED: 25
  1. Error: add text into placeholder (@test-pptx-add-at.R#6) 
  2. Error: add img into placeholder (@test-pptx-add-at.R#40) 
  3. Error: add text into placeholder (@test-pptx-add.R#6) 
  4. Error: ph_add_par append when text alrady exists (@test-pptx-add.R#28) 
  5. Error: ph_add_text with hyperlink (@test-pptx-add.R#47) 
  6. Error: add img into placeholder (@test-pptx-add.R#67) 
  7. Error: add formatted par into placeholder (@test-pptx-add.R#88) 
  8. Error: add xml into placeholder (@test-pptx-add.R#106) 
  9. Error: link to another shape (@test-pptx-add.R#119) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted