flextable theme for styling tables for NAFO docuemtns

A modification of flextable::theme_booktabs

theme_nafotabs(x, fontsize = 11, fontname = "Cambria")

Arguments

x: A flextable object
fontsize: Font size
fontname: Font family

Examples


library(flextable)
d <- data.frame(SSB = rlnorm(10), Recruitment = rlnorm(10))
flextable(d) %>%
  theme_nafotabs()
#> Warning: Use `colformat_*()` instead.
SSB Recruitment
1.0 2.7
1.5 1.7
0.7 1.3
1.9 0.5
0.8 3.9
1.4 0.5
3.0 8.9
1.5 4.6
0.7 0.8
3.2 0.4

SSB	Recruitment
1.0	2.7
1.5	1.7
0.7	1.3
1.9	0.5
0.8	3.9
1.4	0.5
3.0	8.9
1.5	4.6
0.7	0.8
3.2	0.4

SSB	Recruitment
1.0	2.7
1.5	1.7
0.7	1.3
1.9	0.5
0.8	3.9
1.4	0.5
3.0	8.9
1.5	4.6
0.7	0.8
3.2	0.4

SSB	Recruitment
1.0	2.7
1.5	1.7
0.7	1.3
1.9	0.5
0.8	3.9
1.4	0.5
3.0	8.9
1.5	4.6
0.7	0.8
3.2	0.4