R/zzz.r

In affiner: A Finer Way to Render 3D Illustrated Objects in 'grid' Using Affine Transformations

#' @importFrom R6 R6Class
#' @importFrom utils hasName
NULL

# variant of `cli::is_utf8_output()` without the `knitr::is_latex_output()` check
is_utf8_output <- function() {
    opt <- getOption("cli.unicode", NULL)
    if (!is.null(opt)) {
        isTRUE(opt)
    } else {
        l10n_info()[["UTF-8"]]
    }
}

# pretty-print matrix output
print_mat <- function(x, ...) {
    print(apply(x, 2L, format, ...), quote = FALSE, right = TRUE)
}