R/tools_array.R

In CUG-hydro/heatwave: What the Package Does (One Line, Title Case)

#' @export
`%-%` <- function(e1, e2) {
    dim = dim(e1)
    set_dim(as.numeric(e1) - as.numeric(e2), dim)
}

#' @export
`%+%` <- function(e1, e2) {
    dim = dim(e1)
    set_dim(as.numeric(e1) + as.numeric(e2), dim)
}

#' @export
`%>=%` <- function(e1, e2) {
    dim = dim(e1)
    set_dim(as.numeric(e1) >= as.numeric(e2), dim)
}

#' @export
default_false <- function(x) {
    x[is.na(x)] <- FALSE
    x
}