这里的useMethod是什么意思？

Question

R 的一大优点是，如果我输入函数名称，我就可以看到其实现。但这让我递归地感到困惑：

> library(xts)
> align.time
function (x, ...) 
{
    UseMethod("align.time")
}
<environment: namespace:xts>

x是一个XTS对象，所以这是否意味着它将调用XTS的align.time方法...但这就是我正在看的！ （输入 xts::align.time 会给出完全相同的响应。）

Answer 1

简而言之，您正在寻找函数 xts:::align.time.xts。

更长的答案是，您可以通过调用 methods 来查找 align.time 存在哪些方法：

> methods(align.time)
[1] align.time.POSIXct* align.time.POSIXlt* align.time.xts*    

   Non-visible functions are asterisked

这告诉您有一个方法 align.time.xts< /code> 不是从命名空间导出的。此时您可能会猜测它可以在 xts 包中找到，但是您可以使用 getAnywhere 来确认：

> getAnywhere("align.time.xts")
A single object matching 'align.time.xts' was found
It was found in the following places
  registered S3 method for align.time from namespace xts
  namespace:xts
with value

function (x, n = 60, ...) 
{
    if (n <= 0) 
        stop("'n' must be positive")
    .xts(x, .index(x) + (n - .index(x)%%n), tzone = indexTZ(x), 
        tclass = indexClass(x))
}
<environment: namespace:xts>

---

您当然可以直接读取源代码，但是由于该函数未导出，因此您需要使用 package:::function （即三个冒号）：

> xts:::align.time.xts
function (x, n = 60, ...) 
{
    if (n <= 0) 
        stop("'n' must be positive")
    .xts(x, .index(x) + (n - .index(x)%%n), tzone = indexTZ(x), 
        tclass = indexClass(x))
}
<environment: namespace:xts>

Answer 2

align.time() 是从 xts 命名空间导出的，因此 xts::align.time 和 align.time 是同一件事。您需要注意，包中提供了一个 align.time() 方法，用于类 "xts" 的对象，并且该方法不是从命名空间导出的（它是刚刚注册为 S3 方法）：

> xts:::align.time.xts
function (x, n = 60, ...) 
{
    if (n <= 0) 
        stop("'n' must be positive")
    .xts(x, .index(x) + (n - .index(x)%%n), tzone = indexTZ(x), 
        tclass = indexClass(x))
}
<environment: namespace:xts>

当您将​​ "xts" 对象传递给 align.time() 时，就会调用此方法。

当您调用 align.time() 时，UseMethod() 将搜索并调用适当的 "align.time" 方法，如果对于作为第一个参数提供的对象类可用。 UseMethod 正在做你认为它正在做的事情，你只是通过以两种不同的方式查看同一个函数（通用函数）而混淆了自己。