From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 1 Aug 2016 21:33:05 +0000 (-0500)
Subject: use grDevices:: for dev.cur et al.
X-Git-Url: https://git.donarmstrong.com/?p=r%2FCairoHacks.git;a=commitdiff_plain;h=1ce714a8ce1398c40eb68cc78f1496ae4d3cbc49

use grDevices:: for dev.cur et al.
---

diff --git a/R/bookmarks.R b/R/bookmarks.R
index 4ced5a3..30bd12f 100644
--- a/R/bookmarks.R
+++ b/R/bookmarks.R
@@ -28,7 +28,7 @@ CairoHacks.env$current_page <- 0
 ##' write.pdf.bookmarks(file="example.pdf",bookmarks)
 make.pdf.bookmark <- function(text,level=1,page=NULL) {
     if (!CairoHacks.env$device_set_up) {
-        Cairo.onSave(device = dev.cur(),
+        Cairo.onSave(device = grDevices::dev.cur(),
                      onSave=function(device,page){
                          ch <- getNamespace("CairoHacks")
                          print(ls(envir=ch))
diff --git a/R/raster_plots.R b/R/raster_plots.R
index 2e831a9..419c5de 100644
--- a/R/raster_plots.R
+++ b/R/raster_plots.R
@@ -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"))
     }