don't attach external packages; step 1: don't attach hexbin

Author: clauswilke

R/fortify-map.r

@@ -75,7 +75,7 @@ fortify.map <- function(model, data, ...) {
 #'   coord_map("albers",  at0 = 45.5, lat1 = 29.5)
 #' }
 map_data <- function(map, region = ".", exact = FALSE, ...) {
-  try_require("maps", "map_data")
+  try_require("maps", "map_data", attach = TRUE)
   map_obj <- maps::map(map, region, exact = exact, plot = FALSE, fill = TRUE, ...)
   fortify(map_obj)
 }

R/stat-quantile.r

@@ -50,11 +50,11 @@ StatQuantile <- ggproto("StatQuantile", Stat,
   compute_group = function(data, scales, quantiles = c(0.25, 0.5, 0.75),
                            formula = NULL, xseq = NULL, method = "rq",
                            method.args = list(), lambda = 1, na.rm = FALSE) {
-    try_require("quantreg", "stat_quantile")
+    try_require("quantreg", "stat_quantile", attach = TRUE)
 
     if (is.null(formula)) {
       if (method == "rqss") {
-        try_require("MatrixModels", "stat_quantile")
+        try_require("MatrixModels", "stat_quantile", attach = TRUE)
         formula <- eval(substitute(y ~ qss(x, lambda = lambda)),
           list(lambda = lambda))
       } else {

R/utilities.r

@@ -42,9 +42,18 @@ clist <- function(l) {
   paste(paste(names(l), l, sep = " = ", collapse = ", "), sep = "")
 }
 
-try_require <- function(package, fun) {
+
+# Test whether package `package` is available. `fun` provides
+# the name of the ggplot2 function that uses this package, and is
+# used only to produce a meaningful error message if the
+# package is not available.
+#
+# Set `attach = TRUE` if you want to attach the package, not
+# just make sure it is available. It is generally recommended to
+# not set `attach = TRUE`.
+try_require <- function(package, fun, attach = FALSE) {
   if (requireNamespace(package, quietly = TRUE)) {
-    library(package, character.only = TRUE)
+    if (isTRUE(attach)) library(package, character.only = TRUE)
     return(invisible())
   }