Word computed fields in a table

[mikkmart]

I'd like to include a paragraph containing a Word computed field inside a table. Is that possible somehow?

Some failed attempts:

library(officer)
library(flextable)
library(tibble)  # For sane creation of list columns.

page_par <- fpar("Page ", run_word_field("PAGE"))

read_docx() |> 
  body_add_fpar(page_par) |> 
  body_add_table(
    tibble(page_info = list(page_par))
  ) |> 
  body_add_flextable(
    tibble(page_info = list(page_par)) |> flextable()
  ) |>
  print(target = "foo.docx")
browseURL("foo.docx")
# unlink("foo.docx")

[davidgohel]

Yes,

This is the documentation https://davidgohel.github.io/flextable/reference/as_word_field.html

and a copy of an example of this help page:

library(officer)
ft_2 <- flextable(head(cars))
ft_2 <- add_footer_lines(ft_2, "temp text")
ft_2 <- compose(
  x = ft_2, part = "footer", i = 1, j = 1,
  as_paragraph(
    "p. ",
    as_word_field(x = "Page", width = .05),
    " on ", as_word_field(x = "NumPages", width = .05)
  )
)
ft_2 <- autofit(ft_2, part = c("header", "body"))

doc <- read_docx()
doc <- body_add_flextable(doc, ft_2)
doc <- body_add_break(doc)
doc <- body_add_flextable(doc, ft_2)
outfile <- print(doc, target = tempfile(fileext = ".docx"))

[mikkmart]

Thank you! And apologies, clearly I failed to search the documentation thoroughly enough for this.