allowing bottom topleft

insightsengineering · Oct 16, 2023 · cf27faf · cf27faf
1 parent 5c67515
commit cf27faf
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/tt_toString.R b/R/tt_toString.R
@@ -531,7 +531,9 @@ get_formatted_fnotes <- function(tt) {
     if(lentl == 0) {
         tl <- rep("", nli)
     } else if(lentl > nli) {
-        tl <- paste0(tl, collapse = "\n")
+        tl_tmp <- paste0(tl, collapse = "\n")
+        tl <- rep("", nli)
+        tl[length(tl)] <- tl_tmp
     } else if (lentl < nli) {
         # We want topleft alignment that goes to the bottom!
         tl <- c(rep("", nli - lentl), tl)