From 5c675158709eb828541c321c139e4fc8a14f1d1e Mon Sep 17 00:00:00 2001 From: Melkiades Date: Mon, 16 Oct 2023 13:07:10 +0200 Subject: [PATCH] relevant fix for topleft --- R/tt_toString.R | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/R/tt_toString.R b/R/tt_toString.R index f67f5d117..784e1903f 100644 --- 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)