allow vectorized input in r2rtf::rtf_title, r2rtf::rtf_footnote etc

[elong0527]

The argument in r2rtf::rtf_title should allow vectorized argument. For example:

rtf_title(    
  title = c(       "Sponsor name",       "Table xx.yy.zz"     ),     
  text_justification = c("l", "c")   )

[elong0527]

Below is an ad-hoc solution, but will need to improve it after addressing #88

library(r2rtf)

# Hard coding using RTF syntax
head(iris) %>% 
  rtf_title(title = c("{\\pard\\ql Sponsor name\\par}", "Table xx.yy.zz"),     
            text_justification = c("c")   ) %>% 
  rtf_body() %>%
  rtf_encode() %>%
  write_rtf("tmp1.rtf")

# Customize a text within paragraph.
text <- r2rtf:::rtf_paragraph(r2rtf:::rtf_text("Sponsor name"), justification = "l")
head(iris) %>% 
  rtf_title(title = c(text, "Table xx.yy.zz"),     
            text_justification = c("c")   ) %>% 
  rtf_body() %>%
  rtf_encode() %>%
  write_rtf("tmp2.rtf")

[nanxstats]

It would also be great if we can cover these cases in the unit tests.

[panchalh]

Thanks Yilong, suggested temporary solution of text within paragraph works beautifully to make some titles left justified and center others in the same output.
There is another issue I want to report. In so far how I have used r2rtf, the titles and footnotes created in this package using rtf_title() and rtf_footnote() functions write titles and footnotes in the body of rtf page. By comparison, SAS titles and footnotes go in to the header and footer section of rtf page. Is there a option in r2rtf package to make the titles, footnotes go to the header and footer sections of rtf respectively?

Thank you

[elong0527]

Please refer

https://merck.github.io/r2rtf/reference/rtf_page_header.html
https://merck.github.io/r2rtf/reference/rtf_page_footer.html

and a summary of function can be found in https://r4csr.org/slides/r4csr-gwu.html#20

[elong0527]

Fixed in #100

Example code:

head(iris) %>% 
  rtf_title(title = c("abc", "Table xx.yy.zz"),     
            text_justification = c("l", "c")   ) %>% 
  rtf_body() %>%
  rtf_encode() %>%
  write_rtf("tmp1.rtf")