C, fixed issue #3 partially.

NAMESPACE

@@ -1,4 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
+export("*")
 export("+")
 export(C)

R/C.R

@@ -12,5 +12,5 @@
 C <- function(...){
   Load()
   x <- as.numeric(paste0(...))
-  ifelse(length(x), x, 0)
+  if(length(x))x else 0
 }

R/stringRepetition.R

@@ -0,0 +1,22 @@
+#' Character repetition
+#' 
+#' Shorthand for \code{paste(rep(e1, each = e2), collapse = "")}. Works like regular multiplication if \code{e1} is not character.
+#'
+#' @param e1 
+#' @param e2 
+#'
+#' @return Character if \code{e1} is character, regular output otherwise.
+#' @export
+#'
+#' @examples
+#' 2*2
+#' "A"*2
+#' "A"*2+1
+#' "A"*(2+1)
+`*` <- function(e1, e2){
+  if(is.character(e1)){
+    paste(rep(e1, each = e2), collapse = "")
+  } else {
+    .Primitive("*")(e1, e2)
+  }
+}