智能需求搜索

Question

假设我有很多顺序函数。每个函数的结果用于序列中的下一个函数。

start <- "somevar"
a <- fun_a(start)
b <- fun_b(a)
c <- fun_c(b)
d <- fun_d(c)
e <- fun_e(d)
f <- fun_f(e)

另一种看待这一问题的方法是：

start %>% fun_a %>% fun_b %>% fun_c %>% fun_d %>% fun_e %>% fun_f

我想要做的是在传递"d“时了解一些动态内容，例如，它应该运行fun_e和fun_f。

对于这种类型的编程，R有一些功能吗？

如果你知道如何从计算机科学家的角度来看待这个概念的话，你就会得到额外的分数。

Answer 1

您不能通过对象名称来改变函数的行为(至少以自然的方式)。但是可以根据对象类指定函数行为。这是一个叫做函数重载的概念。我觉得这很接近你想要做的事。

在R中，您可以通过泛型函数来实现这一点(请参阅哈德利高级R)。

下面是一个简单的例子。MuFunc的行为改变了传递对象所属的类。它还使用递归结构，以便函数调用另一个函数，如您的示例所示。

MyFunc <- function(x, ...) {
  UseMethod("MyFunc")
}

MyFunc.default <- function(x, ...) {
  print("running MyFunc.default")
  class(x) <- c("A", class(x))
  MyFunc(x)
}

MyFunc.A <- function(x, ...) {
  print("running MyFunc.A")
  class(x) <- c("B", class(x))
  MyFunc(x)
}

MyFunc.B <- function(x, ...) {
  print("running MyFunc.B")
  class(x) <- c("C", class(x))
  MyFunc(x)
}

MyFunc.C <- function(x, ...) {
  print("running MyFunc.C (Terminal Function)")
  class(x) <- c("D", class(x))
}

MyFunc(1)
##[1] "running MyFunc.default"
##[1] "running MyFunc.A"
##[1] "running MyFunc.B"
##[1] "running MyFunc.C (Terminal Function)"

x <- 1
class(x) <- "B"
MyFunc(x) 
##[1] "running MyFunc.B"
##[1] "running MyFunc.C (Terminal Function)"