'function' class 对象的导出 S3 方法

Question

函数对象似乎与 S3 方法的调度配合得很好。
但出于某种原因，它们无法导出到 NAMESPACE 文件中。

下面的代码适用于调度到 *.function 方法：

as.abc = function(x, ...){
    UseMethod("as.abc")
}
as.abc.list = function(x, ...){
    stopifnot(is.list(x))
    structure(x, class="abc")
}
as.abc.function = function(x, ...){
    stopifnot(is.function(x))
    structure(x, class="abc")
}
# list
l = as.abc(list(1))
str(l)
#List of 1
# $ : num 1
# - attr(*, "class")= chr "abc"

# function
f = as.abc(function(x) x)
str(f)
#function (x)  
# - attr(*, "srcref")=Class 'srcref'  atomic [1:8] 1 12 1 24 12 24 1 1
# .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x3dbb848> 
# - attr(*, "class")= chr "abc"

但是当我尝试将 NAMESPACE 中的导出定义为：

export(as.abc)
S3method(as.abc, list)
S3method(as.abc, function)

R CMD 检查时抛出错误：

* checking package namespace information ... ERROR
Invalid NAMESPACE file, parsing gives:
Error in parse(nsFile, keep.source = FALSE, srcfile = NULL): 29:26: unexpected ')'
28: S3method(as.abc, list)
29: S3method(as.abc, function)

我也试过包装成 ` 但它也没有帮助

S3method(as.abc, `function`)

导出函数方法的正确方法是什么class？

Answer 1

根据 Writing R Extensions 第 1.5.2 节，在注册适用于 class 函数对象的 S3 方法时必须使用正则引号：

(Note that function and class names may be quoted, and reserved words and non-standard names such as [<- and function must be.)

'function' class 对象的导出 S3 方法

Export S3 method for a 'function' class object

r

devtools

r-s3

r-package