| Line 25... |
Line 25... |
| 25 |
getNamespace("stats")))
|
25 |
getNamespace("stats")))
|
| 26 |
stopifnot(identical(findHomeNS("dnorm", parent.env(getNamespace("stats"))),
|
26 |
stopifnot(identical(findHomeNS("dnorm", parent.env(getNamespace("stats"))),
|
| 27 |
getNamespace("stats")))
|
27 |
getNamespace("stats")))
|
| 28 |
stopifnot(is.null(findHomeNS("dnorm", getNamespace("base"))))
|
28 |
stopifnot(is.null(findHomeNS("dnorm", getNamespace("base"))))
|
| 29 |
|
29 |
|
| 30 |
## plot is available via the stats namespace since stats imports graphics
|
30 |
## par is available via the stats namespace since stats imports graphics
|
| 31 |
stopifnot(identical(findHomeNS("plot", getNamespace("stats")),
|
31 |
stopifnot(identical(findHomeNS("par", getNamespace("stats")),
|
| 32 |
getNamespace("graphics")))
|
32 |
getNamespace("graphics")))
|
| 33 |
stopifnot(identical(findHomeNS("plot", parent.env(getNamespace("stats"))),
|
33 |
stopifnot(identical(findHomeNS("par", parent.env(getNamespace("stats"))),
|
| 34 |
getNamespace("graphics")))
|
34 |
getNamespace("graphics")))
|
| 35 |
stopifnot(is.null(findHomeNS("plot", getNamespace("base"))))
|
35 |
stopifnot(is.null(findHomeNS("par", getNamespace("base"))))
|
| 36 |
|
36 |
|
| 37 |
## palette is one of a small set of selective imports from grDevices
|
37 |
## palette is one of a small set of selective imports from grDevices
|
| 38 |
stopifnot(identical(findHomeNS("palette", getNamespace("stats")),
|
38 |
stopifnot(identical(findHomeNS("palette", getNamespace("stats")),
|
| 39 |
getNamespace("grDevices")))
|
39 |
getNamespace("grDevices")))
|
| 40 |
stopifnot(identical(findHomeNS("palette", parent.env(getNamespace("stats"))),
|
40 |
stopifnot(identical(findHomeNS("palette", parent.env(getNamespace("stats"))),
|
The R Project SVN
R