Merge pull request #178 from Merck/release-1-0-4

CRAN 1.0.4 release

Author: nanxstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: r2rtf
 Title: Easily Create Production-Ready Rich Text Format (RTF) Table and Figure
-Version: 1.0.3
+Version: 1.0.4
 Authors@R: c(
     person("Yilong", "Zhang", email = "[email protected]", role = c("aut", "cre")),
     person("Siruo", "Wang", role = "aut"),

NEWS.md

@@ -1,5 +1,13 @@
+# r2rtf 1.0.4 (2023-06-17)
+
+## Bug fixes
+
+* Page size of the first page is different from the other pages (#174).
+
 # r2rtf 1.0.3 (2023-05-26)
 
+## Bug fixes
+
 * Properly display cell height in HTML output (#66).
 * Fix an issue when `group_by` and `page_by` are used together (#168).
 

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

@@ -332,16 +332,18 @@ test_that("Test case when using subline_by, page_by, group_by simultaneously wit
   attr(ae_t3, "page")$page_title <- "first"
   ae_t3a <- rtf_encode_table(ae_t3)
 
-  tmp <- lapply(strsplit(ae_t3a$body, "\\page", fixed = TRUE)[[1]],
-                function(x) grepl("subline", x)
+  tmp <- lapply(
+    strsplit(ae_t3a$body, "\\page", fixed = TRUE)[[1]],
+    function(x) grepl("subline", x)
   )
   expect_true(tmp[[1]])
 
   attr(ae_t3, "page")$page_title <- "last"
   ae_t3b <- rtf_encode_table(ae_t3)
 
-  tmp <- lapply(strsplit(ae_t3b$body, "\\page", fixed = TRUE)[[1]],
-         function(x) grepl("subline", x)
+  tmp <- lapply(
+    strsplit(ae_t3b$body, "\\page", fixed = TRUE)[[1]],
+    function(x) grepl("subline", x)
   )
   expect_true(tmp[[length(tmp)]])
 })