Running ‘testthat.R’ [12s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(flextable)
  > 
  > test_check("flextable")
  ── 1. Error: row height is valid (@test-pptx-tables.R#11)  ─────────────────────
  Error closing file
  1: add_slide(doc, layout = "Title and Content", master = "Office Theme") at testthat/test-pptx-tables.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)
  
  ── 2. Error: location is correct (@test-pptx-tables.R#36)  ─────────────────────
  Error closing file
  1: add_slide(doc, layout = "Title and Content", master = "Office Theme") at testthat/test-pptx-tables.R:36
  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)
  
  ── 3. Error: pptx - string are html encoded (@test-text.R#55)  ─────────────────
  Error closing file
  1: get_xml_ppt(tab = ft1, main_folder = main_folder) at testthat/test-text.R:55
  2: add_slide(doc, layout = "Title and Content", master = "Office Theme") at testthat/test-text.R:26
  3: x$slide$update()
  4: lapply(filenames, function(x, container) {
         container$clone()$feed(x)$fortify_id()
     }, container = slide$new("ppt/slides"))
  5: FUN(X[[i]], ...)
  6: container$clone()$feed(x)$fortify_id()
  7: self$save()
  8: write_xml(private$doc, file = private$filename)
  9: write_xml.xml_document(private$doc, file = private$filename)
  10: doc_write_file(x$doc, file, options = options, encoding = encoding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 83 SKIPPED: 0 FAILED: 3
  1. Error: row height is valid (@test-pptx-tables.R#11) 
  2. Error: location is correct (@test-pptx-tables.R#36) 
  3. Error: pptx - string are html encoded (@test-text.R#55) 
  
  Error: testthat unit tests failed
  Execution halted