1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
## Tests for non-standard evaluation in layer()
library(lattice)
library(latticeExtra)
oopt <- lattice.options(panel.error = NULL)
xx <- 1970
xyplot(nhtemp) + layer(panel.abline(v = xx))
layer.test1 <- function() {
xyplot(nhtemp) + layer(panel.abline(v = xx))
}
layer.test1()
layer.test2 <- function() {
vline <- 1920
xyplot(nhtemp) + layer(panel.abline(v = vline))
}
try(plot(layer.test2()), silent = TRUE) # fails
layer.test3 <- function() {
zz <- 1930
ls.str(environment())
xyplot(nhtemp) + layer(panel.abline(v = vline),
data = list(vline = zz))
}
layer.test3()
layer.test4 <- function() {
zz <- 1940
xyplot(nhtemp) + layer(panel.abline(v = c(zz, xx)),
data = environment())
}
layer.test4()
do.call(lattice.options, oopt)
|
