Visitor
# Elements
setClass("Element", representation("VIRTUAL"))
setClass("Engine", contains = "Element")
setClass("Wheel", contains = "Element",
slots = c(number = "numeric"))
setClass("Car", contains = "Element",
slots = c(items = "list"))
# Visitors
setClass("Visitor", representation("VIRTUAL"))
setClass("TestVisitor", contains = "Visitor")
setClass("RepairVisitor", contains = "Visitor")
# The method is chosen by the classes of both
# arguments: no accept() in the elements
setGeneric("visit", function(v, e) {
standardGeneric("visit")
})
# [1] "visit"
setMethod("visit", c("TestVisitor", "Engine"),
function(v, e) cat("test engine\n"))
setMethod("visit", c("TestVisitor", "Wheel"),
function(v, e) {
cat("test wheel #", e@number, "\n",
sep = "")
})
setMethod("visit", c("TestVisitor", "Car"),
function(v, e) cat("test car\n"))
setMethod("visit", c("RepairVisitor", "Engine"),
function(v, e) cat("repair engine\n"))
setMethod("visit", c("RepairVisitor", "Wheel"),
function(v, e) {
cat("repair wheel #", e@number, "\n",
sep = "")
})
setMethod("visit", c("RepairVisitor", "Car"),
function(v, e) cat("repair car\n"))
# The car walks its parts, then itself
visit_car <- function(car, v) {
for (item in c(car@items, car)) visit(v, item)
}
# Client
wheels <- lapply(1:4, function(n) {
new("Wheel", number = n)
})
engine <- new("Engine")
car <- new("Car", items = c(list(engine), wheels))
visit_car(car, new("TestVisitor"))
visit_car(car, new("RepairVisitor"))
Represent an operation to be performed on the elements of an object structure. Visitor lets you define a new operation without changing the classes of the elements on which it operates.Read moreThe problem. A document is made of paragraphs, images and tables. The program must export it, count its words and check its spelling. If each operation is added as a method to every kind of part, the part classes grow with every new operation. The code of one operation is also spread over many classes. The idea. Each operation becomes a separate object, called a visitor. A visitor has one method for each kind of element. Each element has one method that takes a visitor and calls the visitor's method for its own kind. So the right code runs for each pair of element and operation, without checks of the type. To add a new operation, you write a new visitor; the element classes do not change. How to read the example. The elements are of several kinds. Each concrete visitor is one operation, with a separate method for each kind of element. The client code gives a visitor to the elements, and each element sends it to the method for its own kind. In most examples one element holds the others and gives the visitor to each of its parts. Two visitors then pass over the same parts, each with its own operation. In some languages the elements are plain data with a type tag, and a visitor is one function with a version for each kind. When to use it. Use Visitor when the set of element classes is stable, but new operations on them appear often. Do not use it when new kinds of element are added often: each new kind needs a new method in every visitor. A common mistake. Checking the type of the element with conditions inside one general visitor method. A new kind of element is then missed without any warning. Give each kind its own method. |