あんま格好良くないけど・・・

`+` <- function(...) {
    if (any(sapply(list(...), is.character))) 
        paste0(...) else base::`+`(...)
}

つかう

"hoge" + "boke"
## [1] "hogeboke"
(x <- +1)
## [1] 1

バグの温床

1 + 2 + "a"
## [1] "3a"
"a" + 1 + 2
## [1] "a12"