Use explicit namespace for functions from suggested packages

Author: wch

R/coord-map.r

@@ -88,7 +88,7 @@ coord_transform.map <- function(coord, data, details) {
   out
 }
 mproject <- function(coord, x, y, orientation) {
-  suppressWarnings(mapproject(x, y,
+  suppressWarnings(mapproj::mapproject(x, y,
     projection = coord$projection,
     parameters  = coord$params,
     orientation = orientation

R/fortify-spatial.r

@@ -31,7 +31,7 @@ fortify.SpatialPolygonsDataFrame <- function(model, data, region = NULL, ...) {
     try_require("maptools")
 
     # Union together all polygons that make up a region
-    unioned <- unionSpatialPolygons(cp, attr[, region])
+    unioned <- maptools::unionSpatialPolygons(cp, attr[, region])
     coords <- fortify(unioned)
     coords$order <- 1:nrow(coords)
   }

R/geom-hex.r

@@ -44,7 +44,7 @@ hexGrob <- function(x, y, size = rep(1, length(x)), colour = "grey50", fill = "g
   dx <- resolution(x, FALSE)
   dy <- resolution(y, FALSE) / sqrt(3) / 2 * 1.15
 
-  hexC <- hexcoords(dx, dy, n = 1)
+  hexC <- hexbin::hexcoords(dx, dy, n = 1)
 
   n <- length(x)
 

R/stat-binhex.r

@@ -85,14 +85,14 @@ hexBin <- function(x, y, binwidth) {
   ybins <- diff(ybnds) / binwidth[2]
 
   # Call hexbin
-  hb <- hexbin(
+  hb <- hexbin::hexbin(
     x, xbnds = xbnds, xbins = xbins,
     y, ybnds = ybnds, shape = ybins / xbins,
   )
 
   # Convert to data frame
   data.frame(
-    hcell2xy(hb),
+    hexbin::hcell2xy(hb),
     count = hb@count,
     density = hb@count / sum(hb@count, na.rm=TRUE)
   )