use grid:: and Cairo::

[r/CairoHacks.git] / R / raster_plots.R

diff --git a/R/raster_plots.R b/R/raster_plots.R
index 2e831a94afcdb9ce2cf69f160915ffd2b8de9cf7..87c19cc260b61acae0bfc6182863c5fba7440347 100644 (file)
--- a/R/raster_plots.R
+++ b/R/raster_plots.R
@@ -27,7 +27,7 @@
 ##'             data=data.frame(y=rnorm(1E4),
 ##'                             x=rnorm(1E4))))
 ##' raster.image <- stop_rasterplot(plot=FALSE)
-##' grid.raster(raster.image)
+##' grid::grid.raster(raster.image)
 start_rasterplot <- function(width=NULL,height=NULL) {
     x.y.ratio <- grid::convertX(grid::unit(1,"npc"),"mm",valueOnly=TRUE)/
         grid::convertY(grid::unit(1,"npc"),"mm",valueOnly=TRUE)
@@ -65,8 +65,8 @@ start_rasterplot <- function(width=NULL,height=NULL) {
 ##' @export
 ##' @seealso start_rasterplot
 stop_rasterplot <- function(plot=TRUE) {
-    raster.image <- dev.capture(native=TRUE)
-    dev.off()
+    raster.image <- grDevices::dev.capture(native=TRUE)
+    grDevices::dev.off()
     if (plot) {
         grid::grid.raster(raster.image,width=grid::unit(1,"npc"),height=grid::unit(1,"npc"))
     }