relevant fix for topleft

insightsengineering · Oct 16, 2023 · 5c67515 · 5c67515
1 parent 75eb2f6
commit 5c67515
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/tt_toString.R b/R/tt_toString.R
@@ -531,10 +531,7 @@ get_formatted_fnotes <- function(tt) {
     if(lentl == 0) {
         tl <- rep("", nli)
     } else if(lentl > nli) {
-        npad <- lentl - nli
-        body <- rbind(matrix("", nrow = npad, ncol = ncol(body)), body)
-        span <- rbind(matrix(1, nrow = npad, ncol = ncol(span)), span)
-        fnote <- rbind(matrix(list(), nrow = npad, ncol = ncol(body)), fnote)
+        tl <- paste0(tl, collapse = "\n")
     } else if (lentl < nli) {
         # We want topleft alignment that goes to the bottom!
         tl <- c(rep("", nli - lentl), tl)