r - R `+` 运算符如何知道根据类的不同表现不同？

Question

这是 lubridate 包中的一个方法。

> getMethod("month<-")
Method Definition (Class "derivedDefaultMethod"):

  function (x, value)
  {
    if (!is.numeric(value)) {
      value <- pmatch(tolower(value), c("january", "february",
                                        "march", "june", "july", "august", "september", "october",
                                        "november", "december"))
    }
    x <- x + months(value - month(x))
  }

我的问题是带有 + 运算符的最后一行。该运算符的行为因 x 的类而异。 R 如何知道要这样做？如何查看 + 的源代码？

> library(lubridate)
> 
> customFUN <- function (x, value){
+   x <- x + months(value - month(x))
+   return(x)
+ }
> 
> 
> init_datePOSIX <- as.POSIXct("2017-11-01")
> init_dateDate <- as.Date("2017-11-01")
> 
> customFUN(init_datePOSIX, 12)
[1] "2017-11-01 PDT"
> customFUN(init_dateDate, 12)
[1] "2017-12-01"

我的 session 信息:

> sessionInfo()
R version 3.3.3 (2017-03-06)
Platform: x86_64-redhat-linux-gnu (64-bit)
Running under: Red Hat Enterprise Linux

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8    LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C             LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] lubridate_1.7.1

loaded via a namespace (and not attached):
[1] magrittr_1.5  tools_3.3.3   yaml_2.2.0    Rcpp_1.0.0    stringi_1.3.2 stringr_1.3.1

Answer 1

+运算符实际上就像任何其他函数一样，并且可以这样对待。

您可以查看 + 的源代码通过输入:

`+`

此外，您还可以看到+的各种方法。通过输入:

methods(`+`)

当调用函数时，会检查对象的类以确定应调用哪个方法。当存在多个类时，将从类中获取第一个匹配的方法。

因此，您可以为 + 定义自己的方法

`+.custom` <- function(e1, e2) {
  paste0(e1, e2)
}

x <- 1
class(x) <- c("custom", "numeric")

x + x

在这里，我们重写了 x 的类包含一个附加类 "custom" ，您可以看到该行为默认为新定义的 +.custom .

但是，对于尚未定义的其他方法，该值仍将正常工作(数字)，请尝试以下代码:

x / 10 * 500

---

附加阅读: https://stat.ethz.ch/R-manual/R-patched/library/base/html/UseMethod.html