R/C.R

In JarkoDubbeldam/RG: R-Golf, codegolf functions for R

#' Numerical concatenation
#'
#' @param ... Numerics
#'
#' @return The digits from input concatenated. Returned as numeric.
#' @export
#'
#' @examples
#'
#' RG::C(2,3,9)
#' C(1,5,1)
C <- function(...){
  Load()
  x <- as.numeric(paste0(...))
  ifelse(length(x), x, 0)
}