Whitespaces indentation header

NEWS.md

@@ -1,5 +1,7 @@
 # tidytlg 0.11.0.9000
 
+- Replaced leading whitespaces in header col 1 with left-indentation RTF markup.
+
 # tidytlg 0.11.0
 
 - Fixed RTF landscape tag (#54).

R/gentlg_single.R

@@ -27,13 +27,13 @@
     is.list(border_fns),
     all(vapply(border_fns, is.function, FUN.VALUE = logical(1)))
   )
   assertthat::assert_that(is.matrix(bottom_borders) || bottom_borders == "old_format")
   arglist <- list()
   args_to_chk <- names(formals())[names(formals()) != "..."]
   purrr::walk(args_to_chk, .f = {
     function(x) arglist[[x]] <<- eval(rlang::sym(x))
   })
   check_gentlg(arglist)
   if (identical(footers, NA) || length(footers) == 0) {
     footers <- NULL
   }
@@ -47,12 +47,12 @@
       stop("'title_file' file must have columns: 'TABLE ID',
            'IDENTIFIER', and 'TEXT'")
     }
     title_df <- title_df %>%
       filter(`TABLE ID` == file)
 
     if (is.null(title) && nrow(title_df) > 0) {
       title <- title_df %>%
         filter(str_detect(IDENTIFIER, regex("title", ignore_case = TRUE))) %>%
         extract2("TEXT")
       if (length(title) == 0) {
         title <- NULL
@@ -476,6 +476,20 @@
   #############################
   ###       Huxit!          ###
   #############################
+
+  replace_leading_whitespaces_with_indentation <- function(x) {
+    # get number of whitespaces at the beginning of column 1 in the header
+    num_whitespaces <- attr(regexpr("^\\s*", x), "match.length")
+    # 2 whitespaces represent an indentation of 0.125 inches = 180 twips
+    # e.g. 4 whitespaces represent a left-indentation of 0.25 inches = 360 twips
+    num_twips <- num_whitespaces * 90
+    if (num_twips > 0) {
+      raw_rtf_markup <- paste0("\\intbl\\li", num_twips, "\\fi0")
+      x <- paste0(raw_rtf_markup, " ", trimws(x, "left"))
+    }
+    return(x)
+  }
+
   if (is_format_rtf(format)) {
     if (tolower(substr(tlf, 1, 1)) %in% c("t")) {
       ht <- huxtable::as_hux(huxme, add_colnames = TRUE) %>%
@@ -487,12 +501,14 @@
           "Column header not used; {length(colheader)} column header provided, but data contain {ncol(ht)} columns"
         )
       }
+      ht[1, 1] <- replace_leading_whitespaces_with_indentation(ht[1, 1])
       ht[1, ] <- paste0("\\keepn\\trhdr ", ht[1, ]) # Make repeated treatments on each page
       formatindex <- 1
     } else if (tolower(substr(tlf, 1, 1)) %in% c("l")) {
       ht <- huxtable::as_hux(huxme, add_colnames = TRUE) %>%
         huxtable::set_width(value = huxwidth)
       ht[1, ] <- colheader
+      ht[1, 1] <- replace_leading_whitespaces_with_indentation(ht[1, 1])
       ht[1, ] <- paste0("\\keepn\\trhdr ", ht[1, ]) # Make repeated treatments on each page
       formatindex <- 1
     } else if (tolower(substr(tlf, 1, 1)) %in% c("f", "g")) {
@@ -563,6 +579,7 @@
     ### add row one by one to maintain huxtable structure
     if (is_format_rtf(format)) {
       for (i in rev(seq_len(length(colspan)))) {
+        colspan[[i]][1] <- replace_leading_whitespaces_with_indentation(colspan[[i]][1])
         ht <- huxtable::insert_row(ht, paste0("\\keepn\\trhdr ", colspan[[i]]),
           after = 0, fill = ""
         ) %>%