Nothing
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]
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.