version 0.1.1: merge branch appendString

Create AppendStrings.R

Author: JarkoDubbeldam

DESCRIPTION

@@ -1,11 +1,12 @@
 Package: RG
 Type: Package
 Title: R-Golf, codegolf functions for R
-Version: 0.1.0
-Author: Who wrote it
+Version: 0.1.1
+Author: J. Dubbeldam
 Maintainer: J. Dubbeldam <jarkodubbeldam@gmail.com>
 Description: This are functions that serve as replacement for long pieces of code, to make R that little bit golfier.
 License: CC BY-NC 4.0
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 6.0.1
+Date: 2017-07-19

NAMESPACE

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

R/AppendStrings.R

@@ -0,0 +1,30 @@
+#' Addition
+#'
+#' Modified addition operator to work with strings.
+#'
+#' If any of the arguments is of class \code{character}, the two arguments are concatenated and returned as string. Else the base implementation of \code{+} is called.
+#'
+#' @param e1 LHS
+#' @param e2 RHS
+#'
+#' @return A string or numeric.
+#' @export
+#'
+#' @examples
+#' {
+#' 1+1
+#' "a"+"b"
+#' "a"+1+2
+#' 1+2+"a"
+#' }
+`+` <- function(e1, e2){
+  if(is.character(c(e1, e2))){
+    paste0(e1, e2)
+  } else {
+    .Primitive("+")(e1, e2)
+  }
+}
+
+
+
+

README.md

@@ -25,4 +25,5 @@ One of those pesky things about packages, especially when you need to use multip
 
 ## Current included functions:
 
-[`C`](R\C.R): Numerical concatenation. Paste digits together and output a numeric.
+[`C`](https://github.com/JarkoDubbeldam/RG/blob/appendString/R/C.R): Numerical concatenation. Paste digits together and output a numeric.
+[`+`](https://github.com/JarkoDubbeldam/RG/blob/appendString/R/AppendStrings.R): Augmented to be useful for strings. Works like `paste0` on strings.