From 7994851d0778f48dd224d6bb594e560846549ca7 Mon Sep 17 00:00:00 2001
From: Melkiades <davide.garolini@roche.com>
Date: Mon, 16 Oct 2023 11:49:24 +0200
Subject: [PATCH] bug fix for bottom alignment for topleft materials

---
 R/tt_toString.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/tt_toString.R b/R/tt_toString.R
index 640ac954f..f67f5d117 100644
--- a/R/tt_toString.R
+++ b/R/tt_toString.R
@@ -536,7 +536,8 @@ get_formatted_fnotes <- function(tt) {
         span <- rbind(matrix(1, nrow = npad, ncol = ncol(span)), span)
         fnote <- rbind(matrix(list(), nrow = npad, ncol = ncol(body)), fnote)
     } else if (lentl < nli) {
-        tl <- c(tl, rep("", nli - lentl))
+        # We want topleft alignment that goes to the bottom!
+        tl <- c(rep("", nli - lentl), tl)
     }
     list(body = cbind(tl, body, deparse.level = 0), span = cbind(1, span),
          footnotes = cbind(list(list()), fnote))