inst/pkg/R/add.R

In potools: Tools for Internationalization and Portability in R Packages

# a terrible addition function
add = function(..., verbose = FALSE) {
  dots = list(...)
  input_types <- vapply(dots, typeof, character(1L))
  if (!all(inputs_types == "integer")) {
    stop(
      "add() only works on all-integer input, but found other types: ",
       toString(unique(setdiff(input_types, "integer")))
    )
  }
  if (verbose) {
    catf("Adding %d integer inputs\n", length(dots))
  }
  Reduce(`+`, dots)
}

catf = function(fmt, ..., domain = NULL) {
  cat(gettextf(fmt, ..., domain = domain))
}