Running ‘testthat.R’ [5s/10s]
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")
  [ FAIL 1 | WARN 1 | SKIP 1 | PASS 223 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_read_df_from_file.R:19:3'): read_titles_from_df works as expected ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_read_df_from_file.R:19:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─rtf_doc(ht) %>% ...
   10. └─pharmaRTF::titles_and_footnotes_from_df(...)
   11.   └─pharmaRTF:::read_hf(...)
   12.     └─pharmaRTF:::fill_missing_data(.data, columns)
   13.       ├─base::`[<-`(`*tmp*`, is.na(.data[[var]]), var, value = `<chr>`)
   14.       └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(.data[[var]]), var, value = `<chr>`)
   15.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.             ├─base::withCallingHandlers(...)
   18.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 1 | WARN 1 | SKIP 1 | PASS 223 ]
  Error: Test failures
  Execution halted