"Picture" object.picturePaths(picture, nr, nc,
bg = "light grey",
xscale = NULL, yscale = NULL,
label = function(n) {
tg <- textGrob(n, x = 0, y = 0,
just = c("left", "bottom"),
gp = gpar(fontsize = 6))
grid.rect(x = 0, y = 0,
height = unit(6, "points"),
width = grobWidth(tg),
just = c("left", "bottom"),
gp = gpar(fill = "white"))
grid.draw(tg)
}, use.gc = TRUE)"Picture" object.grid.picture