From cf27faf4295760a04e41610a5fb6038d011e36dd Mon Sep 17 00:00:00 2001 From: Melkiades Date: Mon, 16 Oct 2023 17:32:08 +0200 Subject: [PATCH] allowing bottom topleft --- R/tt_toString.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/tt_toString.R b/R/tt_toString.R index 784e1903f..24f223b53 100644 --- 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)