R 责任链 - Code Recipes

设计模式 / 行为型模式

# ConcreteHandler: does its job or passes
# the request on to the next handler
rescuer <- function(code, message) {
  function(request, next_one) {
    if (request == code) {
      cat(message, "\n")
    } else {
      next_one(request)
    }
  }
}

# The end of the chain
nobody <- function(request) {
  cat("nobody handles code =", request, "\n")
}

rescuers <- list(rescuer(1, "call firefighters"),
                 rescuer(2, "call the police"),
                 rescuer(3, "call an ambulance"))

# HandleRequest(): Reduce links the handlers,
# starting from the end of the chain
help_chain <- Reduce(function(handler, next_one) {
  function(request) handler(request, next_one)
}, rescuers, nobody, right = TRUE)

# Client
help_chain(1)
help_chain(2)
help_chain(3)
help_chain(9)

Avoid coupling the sender of a request to its receiver by giving more than one object a chance to handle the request. Chain the receiving objects and pass the request along the chain until an object handles it.

问题。客服部门收到大小不一的请求：小请求交给助理，较大的交给经理，很大的交给总监。如果发送请求的代码必须自己选择接收者，它就得了解每一个接收者和每一条规则。每增加一个接收者，都要修改发送者。

思路。这些接收者称为处理者，它们按固定顺序排列，这就是链。发送者只把请求交给第一个处理者。每个处理者检查请求是否归自己处理。如果是，处理者完成工作，请求不再往下传。如果不是，处理者把请求传给下一个。发送者不知道哪个处理者会作答，也不知道是否会有处理者作答。

如何阅读示例。几个处理者连成一条链。每个处理者按自己的规则判断请求是否归自己处理。客户端代码发送几个请求，每次都发往链的起点。每个请求沿着链传递，直到某个处理者接受它。在大多数语言中，每个处理者都持有下一个处理者的引用；在某些语言中，链只是一个按顺序检查的普通列表。有些示例还会发送一个没有任何处理者接受的请求，输出会报告这一点。

何时使用。当多个对象都可能处理某个请求，而这些对象的集合或顺序可能变化时，使用责任链模式。接收者始终不变时不要使用它：直接调用更简单，也更容易理解。

常见错误。忘记链的末端。这样，没有任何处理者接受的请求就会悄无声息地丢失。应事先决定末端如何处理：报错、交给默认处理者，或者给出明确的报告。