border_first & page_by

[Amex-AZ]

How to use the border_first parameter or another methods to display a line below the title on each page.

Context part of my current code: rtf_page(orientation = "portrait", border_first ="single", border_last = "single") %>% rtf_title(title = "Table 14.X.X", subtitle = c("Full Analysis Set"), text_justification = "c", text_font_size = 9) %>% rtf_body(as_colheader = FALSE, col_rel_width = c(8, 5, 5, 5, 5, 5, 5), border_first = rep("single", 7), border_last = rep("single", 7), border_left = rep("", 7), border_right = rep("", 7), text_justification = c("l", "l", "c", "c", "c", "c", "c"), text_font_size = 7, page_by = "groupn", new_page = TRUE, last_row = FALSE) %>% rtf_encode( doc_type = "table", page_title = "all", page_source = "last", verbose = FALSE) %>% write_rtf(rtf_filename)

I have three rtf pages that have been output grouped by (page_by = "groupn"). However, the border_first ="single" only appears after the title on page one. I want a single line following the title on each of the three pages.

[elong0527]

Please provide a screenshot of the current output and another screenshot of expected output.

Please also provide a reproducible code example using a dummy dataset.

[elong0527]

To achieve your goal, you should use border_top = rep("single", 6) in rtf_colheader instead of border_top = rep("", 6)

The border_first and border_last in rtf_page is to control the first and last line of the whole table.

[Amex-AZ]

Thanks, It worked!