library(magrittr)
file <- replicate(2, tempfile(fileext = ".rtf"))
file1 <- head(iris) %>%
rtf_body() %>%
rtf_encode() %>%
write_rtf(file[1])
file2 <- head(cars) %>%
rtf_page(orientation = "landscape") %>%
rtf_body() %>%
rtf_encode() %>%
write_rtf(file[2])
output <- tempfile(fileext = ".rtf")
assemble_rtf(
input = file,
output = output
)
Run the code above in your browser using DataLab