---
title: "bookdown examples"
---
```{r setup, include=FALSE}
set.seed(2)
knitr::opts_chunk$set(echo = FALSE, ft.shadow = FALSE, ft.latex.float = 'float')
library(officer)
library(flextable)
set_flextable_defaults(
font.family = "Arial",
fonts_ignore = TRUE,
font.size = 10,
font.color = "#222222", border.color = "#222222")
str1 <- "Lorem ipsum dolor sit amet, ac id condimentum cras urna velit, "
str2 <- "fringilla nec nostra in. "
str3 <- "Iaculis sit sed in quam cubilia orci dui eget maximus ullamcorper."
fpt1 <- fp_text_default(color = "orange")
fpt2 <- fp_text_default(color = "#068282", italic = TRUE)
fpp1 <- fp_par(
padding.left = 15,
padding.right = 25,
padding.top = 5,
padding.bottom = 10,
text.align = "left")
ft <- qflextable(airquality[sample.int(150, size = 5), ]) |>
set_caption(
fp_p = fpp1,
align_with_table = FALSE,
autonum = run_autonum(seq_id = "tab", bkm = "tbl-flextable", bkm_all = TRUE, prop = fpt1),
caption = as_paragraph(
as_chunk(str1, props = fpt1), str2, as_chunk(str3, props = fpt2)
)
)
```
# some examples
## example 1
```{r}
#| tab.topcaption: false
ft
```
## example 2
```{r}
#| tab.id: tbl-coco
#| tab.cap: Caption zzzz
#| tab.topcaption: true
flextable(cars[1:4, ])
```
## example 3
This is a reference to table: `r run_reference("tbl-flextable")`.
Generated by dwww version 1.15 on Tue Jun 25 08:55:39 CEST 2024.