Wrap a table formatter so it applies fixed font sizes

Returns a new table-format function that behaves like `table_format` but with the supplied font sizes injected. This is the generic mechanism used by [generate_slides()] to honor per-slide `font_size` settings declared in the spec: a single `table_format` symbol can carry body/header/footer sizes.

Sizes are only forwarded to arguments the underlying formatter actually declares. A formatter with an explicit `body_font_size`/`header_font_size`/ `footer_font_size` argument (or a `...`) receives the corresponding size; sizes a formatter cannot accept are dropped rather than raising an "unused argument" error. Additional arguments supplied when the returned function is called are forwarded to the underlying formatter. When no sizes are supplied the original formatter is returned unchanged.

Usage

with_font_sizes(
  table_format,
  body_font_size = NULL,
  header_font_size = NULL,
  footer_font_size = NULL
)

Arguments

table_format

A function taking a flextable as its first argument and returning a flextable (e.g. [autoslider_format()], [black_format_tb()]).

body_font_size, header_font_size, footer_font_size

Point sizes. `NULL` (the default) leaves that part to the underlying formatter default.

Value

A function `function(ft, ...)` returning a styled flextable.

Examples

small <- with_font_sizes(black_format_tb, body_font_size = 6, header_font_size = 6)
ft <- flextable::flextable(head(mtcars))
small(ft)





mpg
cyl
disp
hp
drat
wt
qsec
vs
am
gear
carb



21.0
6
160
110
3.90
2.620
16.46
0
1
4
4


21.0
6
160
110
3.90
2.875
17.02
0
1
4
4


22.8
4
108
93
3.85
2.320
18.61
1
1
4
1


21.4
6
258
110
3.08
3.215
19.44
1
0
3
1


18.7
8
360
175
3.15
3.440
17.02
0
0
3
2


18.1
6
225
105
2.76
3.460
20.22
1
0
3
1