Hot fix for page number bug (#290)

Closes #288

Author: edelarua

R/pagination.R

@@ -1092,7 +1092,7 @@ paginate_to_mpfs <- function(obj,
     return(mpfs)
   }
 
-  if (!is.null(page_num) && (length(prov_footer(obj)) == 0 || !grepl(page_num, prov_footer(obj), perl = TRUE))) {
+  if (!is.null(page_num) && (length(prov_footer(obj)) == 0 || !any(grepl(page_num, prov_footer(obj), fixed = TRUE)))) {
     # Only adding a line for pagination -> lpp - 1 would have worked too
     prov_footer(obj) <- c(prov_footer(obj), page_num)
   }

tests/testthat/test-exporters.R

@@ -151,6 +151,18 @@ test_that("export_as_txt maintains horizontal separator from table", {
   expect_equal(out, paste0(rep("=", nchar(out)), collapse = ""))
 })
 
+test_that("export_as_txt works with prov footer and page numbers", {
+  dfmf <- basic_matrix_form(mtcars)
+  prov_footer(dfmf) <- c("my", "prov", "footer")
+
+  set_default_page_number("page {i} of {n}")
+  expect_silent(res <- export_as_txt(dfmf, paginate = TRUE, cpp = 60))
+  set_default_page_number(NULL)
+
+  expect_true(grepl("page 1 of 2", res))
+  expect_true(grepl("page 2 of 2", res))
+})
+
 test_that("export_as_pdf works", {
   # Enhancing coverage -> modified copy from rtables
   bmf <- basic_matrix_form(mtcars)