Update flextable vignette pagination example with actual pagination

vignettes/v07-flextable.Rmd

@@ -147,25 +147,32 @@ export_tfl(
 
 When a flextable table is too tall to fit on a single page, `export_tfl()`
 splits it across pages by subsetting body rows. The header is repeated on
-each page.
+each page, and caption and footnote are carried through to every page.
+
+```{r pagination, fig.width = 11, fig.height = 8.5, out.width = "100%"}
+big_data <- data.frame(
+  ID     = seq_len(60),
+  Name   = paste("Subject", seq_len(60)),
+  Age    = sample(25:75, 60, replace = TRUE),
+  Weight = round(rnorm(60, 70, 12), 1),
+  Score  = round(runif(60, 50, 100), 1),
+  Group  = rep(c("Treatment", "Control"), each = 30)
+)
 
-```{r pagination, eval = FALSE}
-big_ft <- flextable(mtcars[, 1:6]) |>
-  set_caption("All Motor Trend Cars") |>
-  add_footer_lines("Source: datasets package.")
+big_ft <- flextable(big_data) |>
+  set_caption("Table 5. Subject Listing — Full Cohort") |>
+  add_footer_lines("Source: Simulated clinical trial data.") |>
+  theme_booktabs()
 
 export_tfl(
   big_ft,
-  file         = "paginated.pdf",
+  preview      = 1:2,
   header_left  = "Analysis Report",
   header_rule  = TRUE,
   footer_rule  = TRUE
 )
 ```
 
-Each page carries the same caption and footnote from the original
-flextable object.
-
 **Note:** When pagination occurs, per-cell formatting applied via
 `color()`, `bg()`, `bold()`, etc. is not preserved on paginated pages.
 Themes (e.g., `theme_vanilla()`) are not re-applied. For tables with