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) }