R help - May 2007 - lattice plots: filled points in the key

I wonder why the following code does not produce filled points in the
key, as I would have expected:
> library(lattice)
> x <- 1:10
> y <- rnorm(10)
> xyplot(y ~ x, pch = 21, col = "black", fill = "grey",
+        key = list(space = "top",
+                   text = list("data"),
+                   points = list(pch = 21, col = "black", fill =
"grey")))

Is there a simple solution to get filled points un the key ?

Renaud

> sessionInfo()
R version 2.5.0 (2007-04-23)
i386-pc-mingw32

locale:
LC_COLLATE=French_France.1252;LC_CTYPE=French_France.1252;LC_MONETARY=French_France.1252;LC_NUMERIC=C;LC_TIME=French_France.1252

attached base packages:
[1] "stats"     "graphics"  "grDevices"
"utils"     "datasets"
"methods"   "base"

other attached packages:
 lattice
"0.15-6"


-- 
Renaud LANCELOT
D?partement Syst?mes Biologiques du CIRAD
CIRAD, Biological Systems Department

Campus International de Baillarguet
TA 30 / B
F34398 Montpellier
Tel   +33 (0)4 67 59 37 17
Secr. +33 (0)4 67 59 37 37
Fax   +33 (0)4 67 59 37 95

On 5/27/07, Renaud Lancelot <renaud.lancelot at gmail.com>
wrote:
> I wonder why the following code does not produce filled points in the
> key, as I would have expected:
>
> > library(lattice)
> > x <- 1:10
> > y <- rnorm(10)
> > xyplot(y ~ x, pch = 21, col = "black", fill =
"grey",
> +        key = list(space = "top",
> +                   text = list("data"),
> +                   points = list(pch = 21, col = "black", fill =
"grey")))
A bug. I've committed a fix and will upload a new version soon.
> Is there a simple solution to get filled points un the key ?
In your example, adding this should work:

par.settings = list(grid.pars = list(fill = "grey")),

but this won't work for more than one fill color.

-Deepayan