R/get-multiple.R

In hughjonesd/huxtable: Easily Create and Style Tables for LaTeX, HTML and Other Formats

get_all_borders <- function (ht, ..., drop = TRUE) {
  list(
    left   = brdr_thickness(left_border(ht)[..., drop = drop]),
    right  = brdr_thickness(right_border(ht)[..., drop = drop]),
    top    = brdr_thickness(top_border(ht)[..., drop = drop]),
    bottom = brdr_thickness(bottom_border(ht)[..., drop = drop])
  )
}


get_all_border_colors <- function (ht, row, col, drop = TRUE) {
  list(
    left   = left_border_color(ht)[row, col, drop = drop],
    right  = right_border_color(ht)[row, col, drop = drop],
    top    = top_border_color(ht)[row, col, drop = drop],
    bottom = bottom_border_color(ht)[row, col, drop = drop]
  )
}


get_all_border_styles <- function (ht, row, col, drop = TRUE) {
  list(
    left   = left_border_style(ht)[row, col, drop = drop],
    right  = right_border_style(ht)[row, col, drop = drop],
    top    = top_border_style(ht)[row, col, drop = drop],
    bottom = bottom_border_style(ht)[row, col, drop = drop]
  )
}


get_all_padding <- function (ht, row, col, drop = TRUE) {
  list(
    left   = left_padding(ht)[row, col, drop = drop],
    right  = right_padding(ht)[row, col, drop = drop],
    top    = top_padding(ht)[row, col, drop = drop],
    bottom = bottom_padding(ht)[row, col, drop = drop]
  )
}