R/rep.r

In narray: Subset- And Name-Aware Array Utility Functions

#' Repeats an array along an arbitrary axis
#'
#' @param x      An array object
#' @param n      Integer, how often to repeat
#' @param along  Along which axis to repeat (default: 1)
#' @return       An array that is repeated `n` times on axis `along`
#' @export
rep = function(x, n, along=1) {
    xl = base::rep(list(x), n)
    bind(xl, along=along)
}

#' @rdname rep
#' @export
crep = function(x, n) rep(x, n, along=2)

#' @rdname rep
#' @export
rrep = function(x, n) rep(x, n, along=1)