X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fraster_plots.R;h=87c19cc260b61acae0bfc6182863c5fba7440347;hb=e5bebf0ad92bc44a6a468ce99e691d3ffa7811b3;hp=2e831a94afcdb9ce2cf69f160915ffd2b8de9cf7;hpb=ab965e02baa9042e42859e4af9682bf277407e2a;p=r%2FCairoHacks.git

diff --git a/R/raster_plots.R b/R/raster_plots.R
index 2e831a9..87c19cc 100644
--- 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"))
     }