CRAN Package Check Results for Package r2rtf

Last updated on 2021-11-29 15:51:22 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3.1 5.55 62.27 67.82 OK
r-devel-linux-x86_64-debian-gcc 0.3.1 4.21 38.94 43.15 ERROR
r-devel-linux-x86_64-fedora-clang 0.3.1 78.50 ERROR
r-devel-linux-x86_64-fedora-gcc 0.3.1 69.75 ERROR
r-devel-windows-x86_64-new-UL 0.3.1 18.00 128.00 146.00 OK
r-devel-windows-x86_64-new-TK 0.3.1 OK
r-devel-windows-x86_64-old 0.3.1 10.00 57.00 67.00 ERROR
r-patched-linux-x86_64 0.3.1 6.34 58.59 64.93 OK
r-patched-solaris-x86 0.3.1 107.60 OK
r-release-linux-x86_64 0.3.1 5.01 59.50 64.51 OK
r-release-macos-arm64 0.3.1 OK
r-release-macos-x86_64 0.3.1 OK
r-release-windows-ix86+x86_64 0.3.1 11.00 72.00 83.00 OK
r-oldrel-macos-x86_64 0.3.1 OK
r-oldrel-windows-ix86+x86_64 0.3.1 9.00 69.00 78.00 OK

Check Details

Version: 0.3.1
Check: examples
Result: ERROR
    Running examples in ‘r2rtf-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: nrow_paragraph
    > ### Title: Calculate Number of Rows for a Paragraph
    > ### Aliases: nrow_paragraph
    >
    > ### ** Examples
    >
    > library(dplyr) # required for running example
    
    Attaching package: ‘dplyr’
    
    The following objects are masked from ‘package:stats’:
    
     filter, lag
    
    The following objects are masked from ‘package:base’:
    
     intersect, setdiff, setequal, union
    
    > tb <- head(iris) %>%
    + rtf_title(title = "Iris example") %>%
    + rtf_footnote(footnote = c("footnote 1", "footnote 2")) %>%
    + rtf_body()
    Error in check_args(tbl, type = c("data.frame")) :
     The argument type did not match: data.frame
    Calls: %>% -> rtf_body -> check_args
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.3.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [6s/11s]
    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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.3.1
Check: examples
Result: ERROR
    Running examples in ‘r2rtf-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: nrow_paragraph
    > ### Title: Calculate Number of Rows for a Paragraph
    > ### Aliases: nrow_paragraph
    >
    > ### ** Examples
    >
    > library(dplyr) # required for running example
    
    Attaching package: ‘dplyr’
    
    The following objects are masked from ‘package:stats’:
    
     filter, lag
    
    The following objects are masked from ‘package:base’:
    
     intersect, setdiff, setequal, union
    
    > tb <- head(iris) %>%
    + rtf_title(title = "Iris example") %>%
    + rtf_footnote(footnote = c("footnote 1", "footnote 2")) %>%
    + rtf_body()
    Error in check_args(tbl, type = c("data.frame")) :
     The argument type did not match: data.frame
    Calls: %>% -> rtf_body -> check_args
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64-old

Version: 0.3.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [10s/13s]
    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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.3.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [11s/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
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.3.1
Check: tests
Result: ERROR
     Running 'testthat.R' [10s]
    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-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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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:
     x
     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 95 | WARN 0 | SKIP 9 | PASS 297 ]
     Error: Test failures
     Execution halted
Flavor: r-devel-windows-x86_64-old