R 中的操作重载

Question

重载字符“+”的最直接方法是什么？ 我已经定义了 '%+%' <- function(...) Paste(...,sep="")：

str <- "aa"%+%"bb"%+%"cc" #str="aabbcc"

但我不喜欢这种语法。我认为 str <- "aa"+"bb"+"cc" 会更好。

（我正在构建长 SQL 查询以与 RODBC 一起使用，通常的 paste 在这种情况下不太方便。有什么建议吗？）

Answer 1

你可以尝试这样的事情：

R> oldplus <- `+`
R> `+` <- function(e1, e2) { 
R>     if (is.character(e1) && is.character(e2)) { 
R>          paste(e1,e2,sep="") 
R>      }
R>      else { 
R>          oldplus(e1,e2) 
R>      } 
R>  }

这给出了：

R> 2+3
[1] 5
R> "aa"+"bb"
[1] "aabb"

但正如 Sacha 指出的，重载这样一个基本函数是非常危险的，我不能向你保证它不会破坏你的 R 会话并使你的计算机爆炸:-)

Answer 2

我认为使用两个参数比点更好：

'%+%' <- function(x,y) paste(x,y,sep="")

"a"%+%"b"%+%"C"
[1] "abC"

如果你真的想要，你可以覆盖 +，但这样做时要非常小心，因为你会破坏 R 中最重要的函数之一。我想不出你想要在 %+% 上这样做的任何原因：

# '+' <- function(x,y) paste(x,y,sep="")
# "a"+"b"+"C"
# [1] "abC"

rm('+')

将其注释掉以确保我不会意外地破坏某人 R:)

Answer 3

为什么通常的“粘贴”不太方便？这就是它的目的。建议：

自己编写一个不寻常的粘贴函数来完成您想要的操作。也许您只是不喜欢一直输入“sep="”'。因此编写一个使用 sep="" 调用 Paste 的函数。或者无论如何。

无论如何，使用字符串连接构建长 SQL 查询都可能会失败。请参阅 http://xkcd.com/327/ 了解规范示例。

另一种可能性是某种模板解决方案。我过去使用过brew 包，它非常适合。

Answer 4

您可以在 stringi 包中找到该运算符。

http://docs.rexamine.com/R-man/stringi/oper_plus.html