Running ‘testthat.R’ [7s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(r2rtf)
  > library(ggplot2)
  > 
  > test_check("r2rtf")
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (9)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-developer-testing-rtf_convert_format.R:4:5): Report ERROR if libreoffice7.1 is not avaiable ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
       █
    1. ├─iris %>% head() %>% rtf_body() %>% rtf_encode() %>% write_rtf(file) test-developer-testing-rtf_convert_format.R:4:4
    2. ├─r2rtf::write_rtf(., file)
    3. │ ├─base::write(paste(unlist(rtf), collapse = "\n"), file)
    4. │ │ └─base::cat(...)
    5. │ ├─base::paste(unlist(rtf), collapse = "\n")
    6. │ └─base::unlist(rtf)
    7. ├─r2rtf::rtf_encode(.)
    8. │ └─class(tbl) %in% "list"
    9. └─r2rtf::rtf_body(.)
   10.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_colheader.R:2:3): Case when colheader equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_colheader(colheader = "") test-independent-testing-as_rtf_colheader.R:2:2
   2. └─r2rtf::rtf_colheader(., colheader = "")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_colheader.R:10:3): Case when colheader is not NULL and border color is specified ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_colheader(colheader = "a | b| c", border_color_left = "green") test-independent-testing-as_rtf_colheader.R:10:2
   2. └─r2rtf::rtf_colheader(., colheader = "a | b| c", border_color_left = "green")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_colheader.R:18:3): case when colheader is not NULL and border type is specified ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_colheader(colheader = "a | b| c", border_right = "double") test-independent-testing-as_rtf_colheader.R:18:2
   2. └─r2rtf::rtf_colheader(., colheader = "a | b| c", border_right = "double")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_colheader.R:26:3): case when colheader is not NULL and cell text formats is specified ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_colheader(colheader = "a | b| c", text_format = "i") test-independent-testing-as_rtf_colheader.R:26:2
   2. └─r2rtf::rtf_colheader(., colheader = "a | b| c", text_format = "i")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:4:3): Test for case when output has title, footnote and source ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:4:2
   2. ├─r2rtf:::as_rtf_pageby(.)
   3. │ └─r2rtf:::rtf_nrow(tbl)
   4. ├─r2rtf:::rtf_pageby(., page_by = "Species", new_page = TRUE, pageby_header = TRUE)
   5. └─r2rtf::rtf_body(.)
   6.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:16:3): Test the pageby rows are the last rows of a page ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:16:2
   2. ├─r2rtf:::rtf_pageby(., page_by = "Species", new_page = TRUE, pageby_header = FALSE)
   3. └─r2rtf::rtf_body(.)
   4.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:38:3): Test if border type/color for first/last row are assigned correctly ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:38:2
   2. ├─r2rtf:::as_rtf_pageby(.)
   3. │ └─r2rtf:::rtf_nrow(tbl)
   4. ├─r2rtf:::rtf_pageby(., page_by = "Species", new_page = TRUE, pageby_header = TRUE)
   5. └─r2rtf::rtf_body(...)
   6.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:56:3): Test if page_dict attribute is created for tbl ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:56:2
   2. ├─r2rtf:::rtf_pageby(., page_by = "Species", new_page = TRUE, pageby_header = FALSE)
   3. └─r2rtf::rtf_body(.)
   4.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:68:3): Test for more than one page_by var ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:68:2
   2. ├─r2rtf:::rtf_pageby(...)
   3. │ └─base::apply(tbl[, by], 1, paste, collapse = "-")
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:84:3): Test if new_page is FALSE and group_by is NOT NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:84:2
   2. ├─r2rtf:::rtf_pageby(...)
   3. └─r2rtf::rtf_body(., group_by = "cat")
   4.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:95:3): Test whether lines with '-----' were removed correctly ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:95:2
   2. ├─r2rtf::rtf_encode(.)
   3. │ └─class(tbl) %in% "list"
   4. ├─r2rtf::rtf_body(...)
   5. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   6. └─r2rtf::rtf_colheader(...)
   7.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:113:3): Test when using subline_by and page_by together in rtf_body ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:113:2
   2. ├─r2rtf::rtf_encode(.)
   3. │ └─class(tbl) %in% "list"
   4. └─r2rtf::rtf_body(., subline_by = "s2", page_by = "Species")
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_pageby.R:127:3): Test when using subline_by and page_by with pageby_row = 'first_row' in rtf_body ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_pageby.R:127:2
   2. ├─r2rtf::rtf_encode(.)
   3. │ └─class(tbl) %in% "list"
   4. └─r2rtf::rtf_body(., subline_by = "s2", page_by = "Species", pageby_row = "first_row")
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_paragraph.R:1:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris[1, ] %>% rtf_body() %>% rtf_title("title") test-independent-testing-as_rtf_paragraph.R:1:0
   2. ├─r2rtf::rtf_title(., "title")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_table.R:2:3): Case in defalut ────────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_table.R:2:2
   2. ├─base::strsplit(., "\n")
   3. ├─r2rtf:::as_rtf_table(.)
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_table.R:12:3): Case for border_color_left and border_color_top ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_table.R:12:2
   2. ├─base::strsplit(., "\n")
   3. ├─r2rtf:::as_rtf_table(.)
   4. └─r2rtf::rtf_body(., border_color_left = "red", border_color_top = "blue")
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_table.R:22:3): Case for having group_by without page_by ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_table.R:22:2
   2. ├─base::strsplit(., "\n")
   3. ├─r2rtf:::as_rtf_table(.)
   4. └─r2rtf::rtf_body(., group_by = "Species")
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-as_rtf_table.R:33:3): Test case when subline is not NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-as_rtf_table.R:33:2
   2. ├─base::strsplit(., "\n")
   3. ├─r2rtf:::as_rtf_table(.)
   4. └─r2rtf::rtf_body(., subline_by = "Species", page_by = "s2", )
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-check_args.R:35:3): Case when type input is not NULL ──
  Error in `check_args(iris[1:10, ], type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testthat::expect_identical(...) test-independent-testing-check_args.R:35:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─r2rtf:::check_args(iris[1:10, ], type = c("data.frame"))
  ── Error (test-independent-testing-check_args.R:91:3): Case when length input is not NULL ──
  Error in `check_args(iris[1:10, 1:2], type = c("data.frame"), length = 2)`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testthat::expect_identical(...) test-independent-testing-check_args.R:91:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─r2rtf:::check_args(iris[1:10, 1:2], type = c("data.frame"), length = 2)
  ── Error (test-independent-testing-check_args.R:103:3): Case when dim input is not NULL ──
  Error in `check_args(iris[1:10, 1:2], type = c("data.frame"), dim = c(10, 
      2))`: The argument type did not match: data.frame
  The argument dimension is not 10,2
  Backtrace:
      █
   1. ├─testthat::expect_identical(...) test-independent-testing-check_args.R:103:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─r2rtf:::check_args(...)
  ── Error (test-independent-testing-content_create.R:13:3): RTF font color encode with color not NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page(orientation = "portrait") %>% rtf_body(text_color = "red") test-independent-testing-content_create.R:13:2
   2. └─r2rtf::rtf_body(., text_color = "red")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-content_create.R:20:3): RTF font color encode with color NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() test-independent-testing-content_create.R:20:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-content_create.R:93:3): RTF colheader  ──────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_colheader() test-independent-testing-content_create.R:93:2
   2. └─r2rtf::rtf_colheader(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-content_create.R:124:3): RTF footnote when as_table = FALSE ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() %>% rtf_footnote(footnote = "test", as_table = FALSE) test-independent-testing-content_create.R:124:2
   2. ├─r2rtf::rtf_footnote(., footnote = "test", as_table = FALSE)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-obj_rtf_text.R:146:3): Test when input is a data frame ──
  Error in `check_args(text, type = c("character", "data.frame"))`: The argument type did not match: character/data.frame
  Backtrace:
      █
   1. └─r2rtf:::obj_rtf_text(text = iris[1:2, ], text_font = 1, text_format = "b") test-independent-testing-obj_rtf_text.R:146:2
   2.   └─r2rtf:::check_args(text, type = c("character", "data.frame"))
  ── Error (test-independent-testing-rtf_body.R:12:3): case when as_colheader equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-independent-testing-rtf_body.R:12:2
   2. │ └─testthat:::expect_condition_matching(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat:::.capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─r2rtf::rtf_body(tbl = testdat, as_colheader = "")
   8.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:35:3): Column relative width ─────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-independent-testing-rtf_body.R:35:2
   2. │ └─testthat:::expect_condition_matching(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat:::.capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─r2rtf::rtf_body(tbl = testdat, col_rel_width = "")
   8.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:58:3): border type and color ─────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testdat %>% rtf_body() test-independent-testing-rtf_body.R:58:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:218:3): cell justification and height ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testdat %>% rtf_body() test-independent-testing-rtf_body.R:218:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:240:3): text type ────────────────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─testdat %>% rtf_body() test-independent-testing-rtf_body.R:240:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:323:3): Case for subline_by ──────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris[c(1:2, 51:52), ] %>% rtf_body(subline_by = c("Species")) test-independent-testing-rtf_body.R:323:2
   2. └─r2rtf::rtf_body(., subline_by = c("Species"))
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:346:3): Case for page_by ─────────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris[c(1:2, 51:52), ] %>% rtf_body(page_by = c("Species")) test-independent-testing-rtf_body.R:346:2
   2. └─r2rtf::rtf_body(., page_by = c("Species"))
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:359:3): Case for using subline_by and page_by together ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_body.R:359:2
   2. └─r2rtf::rtf_body(., subline_by = "Species", page_by = "s2")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_body.R:389:3): Case for using subline_by and page_by with pageby_row = 'first_row' ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_body.R:389:2
   2. └─r2rtf::rtf_body(., subline_by = "Species", page_by = "s2", pageby_row = "first_row")
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_colheader.R:2:3): case when colheader equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─r2rtf_tbl1 %>% rtf_colheader(colheader = NULL) test-independent-testing-rtf_colheader.R:2:2
   2. └─r2rtf::rtf_colheader(., colheader = NULL)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_colheader.R:17:3): multiple colheaders separated by | ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. └─r2rtf::rtf_colheader(r2rtf_tbl1, "a | b | c") test-independent-testing-rtf_colheader.R:17:2
   2.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_colheader.R:22:3): border color ─────────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_colheader.R:22:2
   2. ├─r2rtf::rtf_colheader(., colheader = " a | b | c ", border_color_left = "green")
   3. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_colheader.R:46:3): border type ──────────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_colheader.R:46:2
   2. ├─r2rtf::rtf_colheader(...)
   3. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_colheader.R:54:3): cell text formats ────
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_colheader.R:54:2
   2. ├─r2rtf::rtf_colheader(...)
   3. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode.R:3:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─data1 %>% rtf_body() test-independent-testing-rtf_encode.R:3:0
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:2:3): Test case when footnote and source display in all pages ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_encode_list.R:2:2
   2. ├─r2rtf::rtf_source(., "source")
   3. │ └─class(tbl) %in% "data.frame"
   4. ├─r2rtf::rtf_title(., "title")
   5. │ └─class(tbl) %in% "data.frame"
   6. └─r2rtf::rtf_body(., as_colheader = TRUE, border_color_left = "red")
   7.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:31:3): Test case when page width, height, or orientation are not consistent ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris[1:2, ] %>% rtf_body() test-independent-testing-rtf_encode_list.R:31:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:57:3): Test case when footnote location or source location are not consistent, page_footnote or page_source != 'last', length of list == 1 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris[1:2, ] %>% rtf_footnote("footer 1") %>% rtf_body() test-independent-testing-rtf_encode_list.R:57:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:98:3): Test case when having multiple footnotes or sources ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_encode_list.R:98:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:120:3): Test nrow is consistent with first list ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() test-independent-testing-rtf_encode_list.R:120:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:181:3): Test border_color_first, border_color_last, border_first, and nrow ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_encode_list.R:181:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_list.R:208:3): Test when orientation are different in the list ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_encode_list.R:208:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_encode_table.R:3:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_encode_table.R:3:0
   2. └─r2rtf::rtf_body(...)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:2:3): case when rtf_page is null and footnote equals to null ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() %>% rtf_footnote(footnote = ) test-independent-testing-rtf_footnote.R:2:2
   2. ├─r2rtf::rtf_footnote(., footnote = )
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:9:3): case when footnote equals to null ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page() %>% rtf_body() %>% rtf_footnote(footnote = ) test-independent-testing-rtf_footnote.R:9:2
   2. ├─r2rtf::rtf_footnote(., footnote = )
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:18:3): footnote justification left and identation first 1 left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_footnote.R:18:2
   2. ├─r2rtf::rtf_footnote(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:29:3): footnote justification left and identation left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_footnote.R:29:2
   2. ├─r2rtf::rtf_footnote(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:41:3): footnote font is 2, formats is bold ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_footnote.R:41:2
   2. ├─r2rtf::rtf_footnote(., footnote = "testing", text_font = 2, text_format = "b")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:50:3): footnote text color red ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_footnote.R:50:2
   2. ├─r2rtf::rtf_footnote(., footnote = "testing", text_color = "red")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_footnote.R:58:3): footnote justification right and identation right 2, and text_indent_reference is table/page_margin ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page(width = 6, col_width = 3) %>% rtf_body() test-independent-testing-rtf_footnote.R:58:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_nrow.R:14:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_nrow.R:14:0
   2. ├─r2rtf::rtf_body(...)
   3. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   4. ├─r2rtf::rtf_source(., source = c("source here", "source 2"))
   5. │ └─class(tbl) %in% "data.frame"
   6. ├─r2rtf::rtf_footnote(., footnote = c("footer1", "this is a very very very very very very very long footer2 that should be broken to 2 lines if calculated correctly by rtf_nrow function"))
   7. │ └─class(tbl) %in% "data.frame"
   8. └─r2rtf::rtf_colheader(...)
   9.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_footer.R:2:3): case when page footer equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page() %>% rtf_body() %>% rtf_page_footer(text = "") test-independent-testing-rtf_page_footer.R:2:2
   2. ├─r2rtf::rtf_page_footer(., text = "")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_footer.R:10:3): page footer justification right and identation first 1, left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_footer.R:10:2
   2. ├─r2rtf::rtf_page_footer(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_footer.R:20:3): page footer justification left and identation left 2, right 3 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_footer.R:20:2
   2. ├─r2rtf::rtf_page_footer(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_footer.R:31:3): page footer font=2, formats=bold ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_footer.R:31:2
   2. ├─r2rtf::rtf_page_footer(., text = "testing", text_font = 2, text_format = "b")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_footer.R:40:3): footnote text color red ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_footer.R:40:2
   2. ├─r2rtf::rtf_page_footer(., text = "testing", text_color = "red")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:2:3): case when page footer equals to default ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page() %>% rtf_body() %>% rtf_page_header() test-independent-testing-rtf_page_header.R:2:2
   2. ├─r2rtf::rtf_page_header(.)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:10:3): case when page footer equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page() %>% rtf_body() %>% rtf_page_header(text = "") test-independent-testing-rtf_page_header.R:10:2
   2. ├─r2rtf::rtf_page_header(., text = "")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:18:3): page header justification right and identation first 1, left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_header.R:18:2
   2. ├─r2rtf::rtf_page_header(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:28:3): page header justification left and identation left 2, right 3 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_header.R:28:2
   2. ├─r2rtf::rtf_page_header(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:39:3): page header font=2, formats=bold ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_header.R:39:2
   2. ├─r2rtf::rtf_page_header(., text = "testing", text_font = 2, text_format = "b")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_page_header.R:48:3): footnote text color red ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_page_header.R:48:2
   2. ├─r2rtf::rtf_page_header(., text = "testing", text_color = "red")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_pageby.R:10:3): Test case when page_by is not NULL and data is sorted by the page_by variable ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
       █
    1. ├─testthat::expect_output(...) test-independent-testing-rtf_pageby.R:10:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(temp, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─`%>%`(...)
   12. ├─r2rtf:::rtf_pageby(...)
   13. └─r2rtf::rtf_body(.)
   14.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_pageby.R:29:3): Test if page_by attributes are assigned correctly to tbl ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_pageby.R:29:2
   2. ├─r2rtf:::rtf_pageby(...)
   3. └─r2rtf::rtf_body(.)
   4.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_pageby.R:50:3): Test if there are more than one page_by variables ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_pageby.R:50:2
   2. ├─r2rtf:::rtf_pageby(...)
   3. │ └─base::apply(tbl[, by], 1, paste, collapse = "-")
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_pageby.R:62:3): Test case when pageby_row='first_row' ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_pageby.R:62:2
   2. ├─r2rtf:::rtf_pageby(., page_by = "s2", pageby_row = "first_row")
   3. ├─r2rtf::rtf_body(., subline_by = "Species")
   4. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   5. └─r2rtf::rtf_colheader(., "patelLength|patelWidth|s3")
   6.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_pageby.R:80:3): Test case when subline is not NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_pageby.R:80:2
   2. ├─r2rtf:::rtf_pageby(., page_by = "s2", pageby_row = "first_row")
   3. ├─r2rtf::rtf_body(., subline_by = "Species")
   4. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   5. └─r2rtf::rtf_colheader(., "patelLength|patelWidth|s3")
   6.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:3:3): case when source equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() %>% rtf_source() test-independent-testing-rtf_source.R:3:2
   2. ├─r2rtf::rtf_source(.)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:10:3): source justification right and identation first 1, left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:10:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:17:3): source justification left and identation first 1, right 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:17:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:24:3): source justification left and identation left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:24:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:31:3): source font=2, formats=bold ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:31:2
   2. ├─r2rtf::rtf_source(., source = "testing", text_font = 2, text_format = "b")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:40:3): test case on source equals to NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_body() %>% rtf_source() test-independent-testing-rtf_source.R:40:2
   2. ├─r2rtf::rtf_source(.)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:47:3): test case on source justification right and identation first 1, left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:47:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:56:3): test case on source justification left and identation first 1, right 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:56:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:65:3): test case on source justification left and identation left 2 ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:65:2
   2. ├─r2rtf::rtf_source(...)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:74:3): test case on source font=2, formats=bold  ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_source.R:74:2
   2. ├─r2rtf::rtf_source(., source = "testing", text_font = 2, text_format = "b")
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_source.R:82:3): source justification right and identation right 2, and text_indent_reference is table/page_margin ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─iris %>% rtf_page(width = 5.5, col_width = 3) %>% rtf_body() test-independent-testing-rtf_source.R:82:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_strwidth.R:9:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_strwidth.R:9:0
   2. └─r2rtf::rtf_body(...)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_subline.R:44:3): check justification when 'l' and text_indent_reference is table/page_margin  ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─head(iris) %>% rtf_page(width = 5.5, col_width = 3) %>% rtf_body() test-independent-testing-rtf_subline.R:44:2
   2. └─r2rtf::rtf_body(.)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_subset.R:11:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-rtf_subset.R:11:0
   2. ├─r2rtf::rtf_body(., col_rel_width = c(1, 2, 3, 4, 2, 2, 2, 2))
   3. │ └─r2rtf:::check_args(tbl, type = c("data.frame"))
   4. └─r2rtf::rtf_colheader(...)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-rtf_table_content.R:6:1): (code run outside of `test_that()`) ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. └─r2rtf::rtf_body(...) test-independent-testing-rtf_table_content.R:6:0
   2.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-update_border.R:2:3): test update_border_first when attr(tbl, 'rtf_colheader') is not NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-update_border.R:2:2
   2. ├─r2rtf:::update_border_first(.)
   3. └─r2rtf::rtf_body(.)
   4.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-update_border.R:13:3): test update_border_first when attr(tbl, 'rtf_colheader') is NULL ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-update_border.R:13:2
   2. └─r2rtf::rtf_body(., page_by = "Species", new_page = TRUE)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-update_border.R:30:3): test update_border_last when 'footnote' as_table ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-update_border.R:30:2
   2. ├─r2rtf::rtf_footnote(., "footnote", as_table = TRUE)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-update_border.R:48:3): test update_border_last when 'source' as_table ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-update_border.R:48:2
   2. ├─r2rtf::rtf_source(., "source", as_table = TRUE)
   3. │ └─class(tbl) %in% "data.frame"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-update_border.R:66:3): test update_border_last when body as last ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─`%>%`(...) test-independent-testing-update_border.R:66:2
   2. └─r2rtf::rtf_body(., page_by = "Species", new_page = TRUE)
   3.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-write_rtf.R:6:3): Write function test for simple text and dataset ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─head(iris) %>% rtf_body() %>% rtf_encode() test-independent-testing-write_rtf.R:6:2
   2. ├─r2rtf::rtf_encode(.)
   3. │ └─class(tbl) %in% "list"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  ── Error (test-independent-testing-write_rtf.R:30:3): Write function test for dataset input ──
  Error in `check_args(tbl, type = c("data.frame"))`: The argument type did not match: data.frame
  Backtrace:
      █
   1. ├─head(iris) %>% rtf_body() %>% rtf_encode() test-independent-testing-write_rtf.R:30:2
   2. ├─r2rtf::rtf_encode(.)
   3. │ └─class(tbl) %in% "list"
   4. └─r2rtf::rtf_body(.)
   5.   └─r2rtf:::check_args(tbl, type = c("data.frame"))
  
  [ FAIL 96 | WARN 0 | SKIP 9 | PASS 297 ]
  Error: Test failures
  Execution halted