Merge pull request #280 from Merck/bug-fix-#277

Fix formatting of totalpage in conversion.R

Author: wangben718

R/as_rtf_pageby.R

@@ -247,7 +247,6 @@ as_rtf_pageby <- function(tbl) {
       by_var_dict$id <- apply(by_var_dict, 1, paste, collapse = "-")
 
 
-
       pageby_header_nested <- merge(pageby_header, by_var_dict, all.x = TRUE)
       pageby_header_nested$index <- pageby_header_nested$index - 0.1
 

R/conversion.R

@@ -84,7 +84,7 @@ convert <- function(text,
       "<=" = "\\leq ",
       "\n" = "\\line ",
       "\\pagenumber" = "\\chpgn ",
-      "\\totalpage" = "\\totalpage ",
+      "\\totalpage" = "\\totalpage",
       "\\pagefield" = "{\\field{\\*\\fldinst NUMPAGES }} "
     )
 

R/rtf_encode_table.R

@@ -48,7 +48,6 @@ rtf_encode_table <- function(tbl, verbose = FALSE) {
   pageby <- attr(tbl, "rtf_pageby")
 
   start_rtf <- paste(
-
     as_rtf_init(),
     as_rtf_font(tbl),
     as_rtf_color(tbl),

R/rtf_rich_text.R

@@ -52,11 +52,12 @@
 #'   )
 #' )
 rtf_rich_text <- function(
-    text,
-    theme = list(
-      .emph = list(format = "i"),
-      .strong = list(format = "b")
-    )) {
+  text,
+  theme = list(
+    .emph = list(format = "i"),
+    .strong = list(format = "b")
+  )
+) {
   # Bulletproof the styles requested within the `theme` argument
   theme_arg <- theme
   names(theme_arg) <- NULL

R/rtf_table_content.R

@@ -74,7 +74,6 @@ rtf_table_content <- function(tbl,
   text_indent_right <- attr(tbl, "text_indent_right")
 
 
-
   text_convert <- attr(tbl, "text_convert")
 
   ## get dimension of tbl

R/write_rtf.R

@@ -61,7 +61,6 @@ write_rtf_para <- function(rtf, file) {
   rtf_color <- paste(c("{\\colortbl\n;", col_tb$rtf_code, "}"), collapse = "\n")
 
   start_rtf <- paste(
-
     as_rtf_init(),
     as_rtf_font(),
     rtf_color,

tests/testthat/test-independent-testing-rtf_encode_table.R

@@ -124,14 +124,12 @@ test_that("RTF header, footnote and source encoding for different location", {
   footnote_rtftext_1 <- as_rtf_footnote(d3)
 
 
-
   expect_true(grep(as_rtf_footnote(d3), encode1, fixed = TRUE) == 2)
   expect_true(grep(as_rtf_source(d3), encode1, fixed = TRUE) == 2)
   expect_true(grep(as_rtf_title(d3), encode1, fixed = TRUE) == 2)
 })
 
 
-
 test_that("input value test if data frame or list of data frames", {
   m <- iris[1:2, ]
   m1 <- m |> rtf_body(

tests/testthat/test-independent-testing-rtf_nrow.R

@@ -105,7 +105,6 @@ irspagebybodys <- attr(attr(irs1, "rtf_pageby_table"), "rtf_nrow")
 irspagebyrows <- attr(attr(irs1, "rtf_pageby_row")$Species, "rtf_nrow")
 
 
-
 test_that("test if rtf_nline_vector() return to correct numbers", {
   # line for first vector
   expect_equal(nline_vector[1], 1)