tests/testthat/test-independent-testing-footnote_source_space.R

tbl.p <- head(iris) %>%
  rtf_footnote(text_indent_left = 1) %>%
  rtf_page(orientation = "portrait")
tbl.l <- head(iris) %>%
  rtf_footnote(text_indent_left = 1) %>%
  rtf_page(orientation = "landscape")

test_that("space adjust when orientation is portrait", {
  adj.space.p <- round((round(attr(tbl.p, "page")$width * 1440)
  - round(attr(tbl.p, "page")$margin[1] * 1440)
    - round(attr(tbl.p, "page")$margin[2] * 1440)
    - round(attr(tbl.p, "page")$col_width * 1440)) / 2)
  expect_equal(footnote_source_space(tbl.p), adj.space.p)
})

test_that("space adjust when orientation is landscape", {
  adj.space.l <- round((round(attr(tbl.l, "page")$width * 1440)
  - round(attr(tbl.l, "page")$margin[1] * 1440)
    - round(attr(tbl.l, "page")$margin[2] * 1440)
    - round(attr(tbl.l, "page")$col_width * 1440)) / 2)
  expect_equal(footnote_source_space(tbl.l), adj.space.l)
})

test_that("test when text_indent_reference is page_margin", {
  expect_equal(footnote_source_space(tbl.l, text_indent_reference = "page_margin"), 0)
})

Try the r2rtf package in your browser

Any scripts or data that you put into this service are public.

r2rtf documentation built on Dec. 11, 2021, 9:08 a.m.