Running 'testthat.R' [5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(pharmaRTF)
  
  Attaching package: 'pharmaRTF'
  
  The following object is masked from 'package:graphics':
  
      text
  
  > library(assertthat)
  > library(huxtable)
  
  Attaching package: 'huxtable'
  
  The following objects are masked from 'package:pharmaRTF':
  
      align, align<-, bold, bold<-, font, font<-, font_size, font_size<-,
      header_rows, header_rows<-, italic, italic<-, set_align, set_bold,
      set_font, set_font_size, set_header_rows, set_italic
  
  > 
  > test_check("pharmaRTF")
  -- 1. Error: insert_buffer adds a blank column correctly (@test_helpers.r#37)  -
  Elements 1 of idx >= 1L are not true
  Backtrace:
    1. testthat::expect_true(...)
    8. pharmaRTF:::insert_buffer(rtf, rtf$table[1:header_rows(rtf$table)])
   10. huxtable:::`[.huxtable`(col_headers, 0, )
   11. huxtable:::subset_rows(x, ix)
   12. assertthat::assert_that(...)
  
  -- 2. Failure: hf_string orderes lines properly (@test_rtf-code-generators.r#24)
  hf_string(rtf, "titles") not equal to "{\\header\n\\qc\n{\\f1\\fs24 rtf_doc Title 3}\n\\par\\qc\n{\\f1\\fs24 rtf_doc Title 2}\n\\par\\qc\n{\\f1\\fs24 rtf_doc Title 1}\n\\par\n\n{\n\\trowd\n\\trqc \\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clNoWrap\\clpadfl3\\clpadl80 \\clpadft3\\clpadt80 \\clpadfb3\\clpadb80 \\clpadfr3\\clpadr80 \\cellx2160 \n\\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clNoWrap\\clpadfl3\\clpadl80 \\clpadft3\\clpadt80 \\clpadfb3\\clpadb80 \\clpadfr3\\clpadr80 \\cellx4320 \\pard\\intbl\\ql{\\fs24 {Header1}}\\cell\n\\pard\\intbl\\ql{\\fs24 {Header2}}\\cell\n\\row\n}\n\n}".
  1/1 mismatches
  x[1]: "{\\header\n\\qc\n{\\f1\\fs24 rtf_doc Title 3}\n\\par\\qc\n{\\f1\\fs24 rtf
  x[1]: _doc Title 2}\n\\par\\qc\n{\\f1\\fs24 rtf_doc Title 1}\n\\par\n\n{\n\\trow
  x[1]: d\n\\trqc \\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clpadfl3\\clpad
  x[1]: l120 \\clpadft3\\clpadt120 \\clpadfb3\\clpadb120 \\clpadfr3\\clpadr120 \\c
  x[1]: ellx2160 \n\\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clpadfl3\\c...
  y[1]: "{\\header\n\\qc\n{\\f1\\fs24 rtf_doc Title 3}\n\\par\\qc\n{\\f1\\fs24 rtf
  y[1]: _doc Title 2}\n\\par\\qc\n{\\f1\\fs24 rtf_doc Title 1}\n\\par\n\n{\n\\trow
  y[1]: d\n\\trqc \\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clNoWrap\\clpad
  y[1]: fl3\\clpadl80 \\clpadft3\\clpadt80 \\clpadfb3\\clpadb80 \\clpadfr3\\clpadr
  y[1]: 80 \\cellx2160 \n\\clbrdrt\\clbrdrl\\clbrdrb\\clbrdrr\\clvertalt\\clNoW...
  
  -- 3. Failure: header_string lines populates correctly (@test_rtf-code-generator
  tools::md5sum("headers1.txt")[[1]] not equal to tools::md5sum(tmp1)[[1]].
  1/1 mismatches
  x[1]: "f66e8a89d6f036b60391f3df2055f3ef"
  y[1]: "b8a11c15103db5c83b2b54d693794997"
  
  -- 4. Failure: header_string lines populates correctly (@test_rtf-code-generator
  tools::md5sum("headers2.txt")[[1]] not equal to tools::md5sum(tmp2)[[1]].
  1/1 mismatches
  x[1]: "451b42b9df2c079527b936448bfdabe0"
  y[1]: "95ed76fa84b049fd76967c23c6c2dde2"
  
  -- 5. Failure: rtf_doc returns a list with a table, title, and footnotes (@test_
  nrow(rtf$table) not equal to 5.
  1/1 mismatches
  [1] 6 - 5 == 1
  
  == testthat results  ===========================================================
  [ OK: 212 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 5 ]
  1. Error: insert_buffer adds a blank column correctly (@test_helpers.r#37) 
  2. Failure: hf_string orderes lines properly (@test_rtf-code-generators.r#24) 
  3. Failure: header_string lines populates correctly (@test_rtf-code-generators.r#123) 
  4. Failure: header_string lines populates correctly (@test_rtf-code-generators.r#124) 
  5. Failure: rtf_doc returns a list with a table, title, and footnotes (@test_rtf_doc.r#14) 
  
  Error: testthat unit tests failed
  Execution halted