R/sum_of.R

In BAAQMD/funtools: Provides Functional Building Blocks

#' Parallel sum, with tidyselect
#'
#' @param ... objects that can be passed to [sum()]
#'
#' @importFrom purrr pmap
#'
#' @examples
#' library(dplyr)
#' mutate(mtcars, foo := sum_of(cyl, mpg))
#'
#' @export
sum_of <- function (...) {
  #sum_vars <- tidyselect::vars_select(names(.data), ...)
  #selected <- select(.data, sum_vars)
  #return(NULL
  lst <- list(...)
  transposed <- t(lst)
  reduced <- purrr::pmap(transposed, sum)
  restored <- unlist(t(reduced))
  return(restored)
}