How to show multiple lines in page header or footer? about r2rtf HOT 4 CLOSED

library(r2rtf)
library(magrittr)

# Define a paragraph with different text justification
# ToDo: enable this feature in rtf_header and rtf_footer
header <- r2rtf:::rtf_paragraph(
              c("{Page \\pagenumber of \\pagefield}",
              "{text1}", 
              "{text2}"),
              justification = c("r", "l","l"), 
              space_before = 0, 
              space_after = 0
)

# Defin a dummy table for page header and page footer line 
line <- data.frame(x = "") %>% 
            rtf_page(border_first = "", border_last = "single") %>% 
            rtf_body(as_colheader = FALSE, 
                     border_left = "",
                     border_right = "", 
                     border_bottom = "", 
                     cell_height = 0.1) %>% 
            rtf_footnote(c("foot1", "foot2"), as_table = FALSE, text_font_size = 12) %>% 
            r2rtf:::rtf_encode_table(verbose = TRUE)
line$body <- gsub("\n", "", line$body, fixed = TRUE)

header <- paste(paste(header, collapse = ""), line$body)
footer <- paste0(line$body, line$footnote)

tbl <- head(iris) %>% 
          rtf_page_header(header) %>% 
          rtf_body() %>% 
          rtf_page_footer(footer)

x <- tbl %>% rtf_encode()
cat(x$body)

tbl %>% rtf_encode() %>% write_rtf("tmp.rtf")