R/int_regions.R

In j-martineau/pj: Element-wise plots by JAM

#' @name int_is_bg_rg
#' @param rg the tibble row defining the region.
#' @return logical scalar
int_is_bg_rg <- function(rg) {"id" %in% colnames(rg)}

#' @rdname int_calc_pad
#' @param p proportion vector of length 1 (all pads), 2 (horizontal and
#'   vertical), or 4 (left, right, bottom, top).
#' @param w positive numeric scalar giving region width.
#' @param h positive numeric scalar giving region height.
int_calc_lpad <- function(p, w, h) {if (length(p) == 1) {p * min(w, h)} else {p[1] * w}}

#' @rdname int_calcpad
int_calc_rpad <- function(p, w, h) {if (length(p) == 1) {p * min(w, h)} else if (length(p) == 2) {p[1] * w} else {p[2] * w}}

#' @rdname int_calcpad
int_calc_bpad <- function(p, w, h) {if (length(p) == 1) {p * min(w, h)} else {p[3] * h}}

#' @rdname int_calcpad
int_calc_tpad <- function(p, w, h) {if (length(p) == 1) {p * min(w, h)} else if (length(p) == 2) {p[2] * w} else {p[4] * w}}