R/cbind_lapply.R

In jakobbossek/re: Utility Functions Missing in Base R

#' @title
#' Bind lapply results
#'
#' @description
#' Simple shortcut for \code{do.call(cbind, lapply(...))}.
#'
#' @param X [any]\cr
#'   Iterable objects, e.g. list or vector.
#' @param FUN [\code{function}]\cr
#'   Function applied to each element of \code{X} (see \code{\link[base]{lapply}}).
#' @param ... [any]\cr
#'   Furhter parameters passed down to \code{\link[base]{lapply}}.
#' @return See return value of \code{\link[base]{cbind}} and \code{\link[base]{rbind}}
#' respectively.\cr
#' @export
cbind_lapply = function(X, FUN, ...) {
  do.call(cbind, lapply(X, FUN, ...))
}

#' @rdname cbind_lapply
#' @export
rbind_lapply = function(X, FUN, ...) {
  do.call(rbind, lapply(X, FUN, ...))
}