R/backports.r

In klmr/box: Write Reusable, Composable and Modular R Code

define_backports = function (ns) {
    if (getRversion() < '4.0.0') {
        ns$deparse1 = function (expr, collapse = ' ', width.cutoff = 500L, ...) {
            paste(deparse(expr, width.cutoff, ...), collapse = collapse)
        }

        ns$activeBindingFunction = function (sym, env) {
            class = class(env)
            on.exit({class(env) = class})
            as.list(`class<-`(env, NULL), all.names = TRUE)[[sym]]
        }

        ns$tryInvokeRestart = function (r, ...) {
            if (! isRestart(r)) r = findRestart(r)
            if (! is.null(r)) invokeRestart(r, ...)
        }
    }
}