Alternative approach for pagebreak_in_banner

Author: 1beb

R/tex-table.R

@@ -195,7 +195,11 @@ latexTableBody <- function(df, theme, question_alias = NULL) {
       rows <- apply(cbind(rownames(dt), dt), 1, paste, collapse = " & ")
     }
     # Add a newline to each row, then join in a single string
-    return(paste(rows, newline, collapse = "\n"))
+    if(!theme$pagebreak_in_banner) {
+      return(paste(rows, "\\\\*", collapse = "\n"))
+    } else {
+      return(paste(rows, newline, collapse = "\n"))
+    }
   })
 
   # Assemble the components of the table, based on "data_order"
@@ -275,9 +279,9 @@ tableHeader.CrossTabVar <- function(var, theme) {
   }
 
   nopagebreak <- NULL
-  if (!theme$pagebreak_in_banner) {
-    nopagebreak <- "\\begin{absolutelynopagebreak}"
-  }
+  # if (!theme$pagebreak_in_banner) {
+  #   nopagebreak <- "\\begin{absolutelynopagebreak}"
+  # }
 
   header <- paste(
     nopagebreak,

R/writeLatex.R

@@ -222,13 +222,13 @@ latexReportTables <- function(results, banner, theme) {
     # bottomrule gets wiped out by nopagebreak environment
     # adding one manually
     if (!theme$pagebreak_in_banner) {
-      table = gsub(
+      table <- gsub(
         "\\end{longtable}",
-        "\\bottomrule\\end{longtable}\n\\end{absolutelynopagebreak}",
+        "\\bottomrule\\end{longtable}\n", # \\end{absolutelynopagebreak}",
         table, fixed = TRUE)
-      # table <- noBreaks(table)
     }
 
+
     table_bodies[[i]] <- table
   }
 

tests/testthat/test-write-latex.R

@@ -201,9 +201,9 @@ test_that("Adds nonTabBookSummary as expected", {
 
   res <- latexReportTables(results, NULL, tema)
 
-  # Expect absolutelynopagebreak wraps on all
+  # Expect absolutelynopagebreak wraps on none!
   expect_true(
-    all(grepl("absolutelynopagebreak", res))
+    all(!grepl("absolutelynopagebreak", res))
   )
 
   # Clear page not appended to results