1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
test_that("tbl_format_header() results", {
local_unknown_rows()
local_foo_tbl()
expect_snapshot({
tbl_format_header(tbl_format_setup(as_tbl(mtcars), width = 80))
tbl_format_header(tbl_format_setup(as_unknown_rows(trees), width = 30, n = 10))
"Narrow"
tbl_format_header(tbl_format_setup(as_tbl(mtcars), width = 10))
"Custom tbl_sum()"
tbl_format_header(tbl_format_setup(new_foo_tbl(), width = 30))
"Focus columns"
tbl_format_header(tbl_format_setup(new_tbl(trees, pillar_focus = "Volume"), width = 30))
})
})
|
