R/gr.R

In j-martineau/uj: Utilities by JAM

#' @name gr
#' @encoding UTF-8
#' @family strings
#' @family plots
#' @family wraps
#' @title Thin wrappers of `graphics` functions.
#' @details
#' \tabular{ll}{  `str_h`   \tab \code{\link[graphics]{strheight}}. \cr
#'                `str_w`   \tab \code{\link[graphics]{strwidth}}.    }
#' @export
#' @examples
#' sent1 <- "First sentence."
#' sent2 <- "Second sentence."
#' sent12 <- paste0(sent1, "\n", sent2)
#' strh(sent1)
#' strh(sent2)
#' strh(sent12)
#' strw(sent1)
#' strw(sent2)
#' strw(sent12)
str_h <- graphics::strheight

#' @rdname gr
#' @export
str_w <- graphics::strwidth