Fixes for tests

Author: 1beb

R/codebookLatex.R

@@ -80,7 +80,7 @@ codeBookItemTxtDescription <- function(x, ...) {
 
 
   if (txt$notes != "") {
-    tex = "\\vskip 0.10in\n%s\n\\addcontentsline{lot}{table}{\\parbox{1.8in}{\\ttfamily{%s }} %s}\n\\vskip 0.10in\n\\emph{%s}\n\\vskip 0.10in"
+    tex = "\\vskip 0.10in\n%s\n\\addcontentsline{lot}{table}{\\parbox{1.8in}{\\ttfamily{%s}} %s}\n\\vskip 0.10in\n\\emph{%s}\n\\vskip 0.10in"
     tex = sprintf(
       tex,
       texEscape(txt$description),
@@ -89,7 +89,7 @@ codeBookItemTxtDescription <- function(x, ...) {
       txt$notes
     )
   } else {
-    tex = "\\vskip 0.10in\n%s\n\\addcontentsline{lot}{table}{\\parbox{1.8in}{\\ttfamily{%s }} %s}\n\\vskip 0.10in"
+    tex = "\\vskip 0.10in\n%s\n\\addcontentsline{lot}{table}{\\parbox{1.8in}{\\ttfamily{%s}} %s}\n\\vskip 0.10in"
     tex = sprintf(
       tex,
       texEscape(txt$description),

R/tex.R

@@ -34,7 +34,7 @@ texEscape <- function(string) {
   if (is.null(string)) {
     return("")
   }
-  s
+
   string <- gsub("^ *(\\[)", "\\\\hspace\\*\\{0in\\}\\1", string)
   string <- gsub("([#$%&_])", "\\\\\\1", string)
   string <- gsub("[\u00A3\uFFE1]", "\\\\pounds", string)

R/theme.R

@@ -209,6 +209,7 @@ themeDefaultExcel <- function(
     digits_numeric = 2,
     one_per_sheet = FALSE,
     latex_round_percentages = TRUE,
+    enforce_onehundred = FALSE,
     latex_headtext = "",
     latex_foottext = "",
     latex_table_align = "r",