flextable_with_symbol.R

# random flextable example to put a symbol in a column

librarian::shelf(tidyverse, flextable, officer)

data(mpg)

# copyright symbol
copyright_symbol <- "\U00A9"
black_dot <- "\U2B24" 

table <- select(mpg, manufacturer, model) %>%
  distinct() %>%
  mutate(copyright_col = 'test') %>%
  flextable() %>%
  compose(j = 3,
          value = as_paragraph(as_chunk(copyright_symbol, props = fp_text(color = 'black'))),
          part = "body")