1

我开发了一些使用大量本地函数和 S3 方法的代码。当我开始在 furrr 函数中使用 S3 方法时，全局变量的自动检测无法正常工作以检测 S3 处理程序。

示例代码：

test <- function(x) UseMethod("test")
test.character <- function(x) cat("I am character", x)

furrr::future_map(as.character(1:10), test)

它失败并出现以下错误：

Error in UseMethod("test") : 
  no applicable method for 'test' applied to an object of class "character"

我知道，我可以使用furrr_options(globals = list(test.character = test.character))，但我需要一些通用解决方案，它不需要在全局中枚举所有在 furrr 函数中使用的本地函数和 S3 方法。

有没有办法告诉 furrr 如何解决 S3 泛型方法？

4

1 回答 1

1

我认为在您的全球工作环境中定义通用 S3 方法并不常见。通常这是在包中发生的事情。

一种可能的解决方法是这个辅助函数，它将为您的全局泛型查找所有 S3 方法。

get_all_generics <- function() {
  funs <- unlist(eapply(globalenv(), FUN = function(x) is.function(x) && utils::isS3stdGeneric(x)))
  gfuns <- names(funs[funs])
  mget(unlist(lapply(gfuns, methods)), envir=globalenv())
}
 
get_all_generics()
furrr_options(globals= get_all_generics())
于 2021-03-15T03:18:09.697 回答