More namespace issues

Author: hadley

R/geom-violin.r

@@ -155,12 +155,12 @@ GeomViolin <- ggproto("GeomViolin", Geom,
 # Returns a data.frame with info needed to draw quantile segments.
 create_quantile_segment_frame <- function(data, draw_quantiles) {
   dens <- cumsum(data$density) / sum(data$density)
-  ecdf <- approxfun(dens, data$y)
+  ecdf <- stats::approxfun(dens, data$y)
   ys <- ecdf(draw_quantiles) # these are all the y-values for quantiles
 
   # Get the violin bounds for the requested quantiles
-  violin.xminvs <- (approxfun(data$y, data$xminv))(ys)
-  violin.xmaxvs <- (approxfun(data$y, data$xmaxv))(ys)
+  violin.xminvs <- (stats::approxfun(data$y, data$xminv))(ys)
+  violin.xmaxvs <- (stats::approxfun(data$y, data$xmaxv))(ys)
 
   # We have two rows per segment drawn. Each segments gets its own group.
   data.frame(

R/guide-legend.r

@@ -264,7 +264,7 @@ guide_geom.legend <- function(guide, layers, default_mapping) {
     }
 
     # override.aes in guide_legend manually changes the geom
-    data <- modifyList(data, guide$override.aes)
+    data <- utils::modifyList(data, guide$override.aes)
 
     list(
       draw_key = layer$geom$draw_key,

R/plot.r

@@ -141,7 +141,7 @@ print.ggplot <- function(x, newpage = is.null(vp), vp = NULL, ...) {
 
   # Record dependency on 'ggplot2' on the display list
   # (AFTER grid.newpage())
-  recordGraphics(
+  grDevices::recordGraphics(
     requireNamespace("ggplot2", quietly = TRUE),
     list(),
     getNamespace("ggplot2")

R/save.r

@@ -74,7 +74,7 @@ plot_dim <- function(dim = c(NA, NA), scale = 1, units = c("in", "cm", "mm"),
     if (length(grDevices::dev.list()) == 0) {
       default_dim <- c(7, 7)
     } else {
-      default_dim <- dev.size() * scale
+      default_dim <- grDevices::dev.size() * scale
     }
     dim[is.na(dim)] <- default_dim[is.na(dim)]
     dim_f <- prettyNum(from_inches(dim), digits = 3)