A LaTeX safe approach to applying borders to all cells using pixiedust

medley_all_border.R

medley_all_border <- function(x, part = c("table"))
{
  part <- 
    match.arg(part, 
              c("table", "head", "body", "interfoot", "foot"),
              several.ok = TRUE)
  part <- 
    if ("table" %in% part)
    {
      c("head", "body", "interfoot", "foot")
    }
  
  for (i in part)
  {
    if (!is.null(x[[i]]))
    {
      part_rows <- max(x[[i]][["row"]])
      part_cols <- max(x[[i]][["col"]])
      
      x <- sprinkle(x, 
                    rows = 1:part_rows,
                    cols = 1:part_cols,
                    border = c("left", "bottom"),
                    part = i)
      x <- sprinkle(x,
                    rows = 1,
                    border = "top",
                    part = i)
      x <- sprinkle(x,
                    cols = part_cols,
                    border = "right",
                    part = i)
    }
  }
  x
}