furrr 不会从全局环境中自动解析 S3 泛型方法

如何解决furrr 不会从全局环境中自动解析 S3 泛型方法

我开发了一些使用大量本地函数和 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 泛型方法？

解决方法

我认为在您的全球工作环境中定义通用 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())