使用引号以编程方式创建S3泛型

Question

我想从一个函数在全局环境中创建一个S3泛型。我看了一下R.methodsS3::setGenericS3.default并想出了以下内容：

create_generic <- function(nm) {
  src <- sprintf("%s <- function(obj, ...) UseMethod(\"%s\")", nm, nm)
  expr <- parse(text = src)
  print(expr)
  eval(expr, env = .GlobalEnv)
}

create_generic("cat")
#> expression(cat <- function(obj, ...) UseMethod("cat"))
cat
#> function (obj, ...) 
#> UseMethod("cat")

这就是我喜欢它的方式。但是，我一直试图使用引用来完成这项工作，而且我被困住了：

library(rlang)

create_generic2 <- function(nm) {
  expr <- expr(!!sym(nm) <- function(obj, ...) UseMethod(!!nm))
  print(expr)
  eval(expr, env = .GlobalEnv)
}

create_generic2("dog")
#> dog <- function(obj, ...) UseMethod("dog")
dog
#> function(obj, ...) UseMethod(!!nm)

这使用了tidyeval，因为这是我熟悉的，但我想看看它在底座R中的样子。

我对任何没有create_generic中的字符串操作的版本感兴趣。

Answer 1

在基地R：

create_generic <- function(fun_name) {
  new_fun <- function(obj, ...) UseMethod(fun_name)
  assign(fun_name, new_fun, envir = .GlobalEnv)
}

cat("hi\n")
# hi

create_generic("cat")

cat("hi\n")
# Error in UseMethod(fun_name) : 
#   no applicable method for 'cat' applied to an object of class "character"

cat.character <- base::cat

cat("hi\n")
# hi

Answer 2

您还可以使用expr_interp()在函数中使用unquoting运算符：

create_generic <- function(name, env = globalenv()) {
  gen <- expr_interp(function(obj, ...) {
    UseMethod(!!name)
  })

  environment(gen) <- env
  assign(name, gen, envir = env)
}

前缀是expr_，因为它是（内部）通用的表达式包装器，例如公式和功能。