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

Question

我已经开发了一些代码，它们使用了大量的本地函数和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泛型方法？

Answer 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())