From ad91ae0ef1cedd9119677a9cc572321a00e14390 Mon Sep 17 00:00:00 2001 From: Louis Date: Mon, 13 Oct 2025 10:29:22 +0200 Subject: [PATCH] Removed unused variable --- utils.R | 8 -------- 1 file changed, 8 deletions(-) diff --git a/utils.R b/utils.R index 94e8dce..ff4b4f8 100644 --- a/utils.R +++ b/utils.R @@ -9,11 +9,9 @@ ellipse_table <- function(df, nr = 5, nc = 5, format = "latex") { if (format == "latex") { h_ellipsis <- "$\\dots$" # horizontal (for columns) v_ellipsis <- "$\\vdots$" # vertical (for rows) - both_ellipsis <- "$\\ddots$" # for center cell (optional) } else { h_ellipsis <- "..." v_ellipsis <- "..." - both_ellipsis <- "..." } # Select top/bottom rows @@ -55,12 +53,6 @@ ellipse_table <- function(df, nr = 5, nc = 5, format = "latex") { names(sub_df)[ceiling(nc / 2) + 1] <- h_ellipsis } - # # Optionally replace center cell with diagonal dots (nice touch in latex) - # if (format == "latex" && nrows > nr && ncols > nc) { - # mid_r <- ceiling(nrow(sub_df) / 2) - # mid_c <- ceiling(ncol(sub_df) / 2) - # sub_df[mid_r, mid_c] <- both_ellipsis - # } # Print with kable return(sub_df) }