R/utils-base-wrappers.R

In einops: Flexible, Powerful, and Readable Tensor Operations

#' @inheritParams base::append
#' @param ... Additional arguments passed to or from other methods.
#' @inherit base::append title description details return references examples
#' @keywords internal
append <- function(x, values, after = length(x), ...) {
    UseMethod("append")
}

#' @export
append.default <- function(x, values, after = length(x), ...) {
    base::append(x = x, values = values, after = after)
}