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

`+` <- 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"