From 21d5b0c9ad609c45becfe4facc3599e8480c1546 Mon Sep 17 00:00:00 2001 From: Toby Dylan Hocking Date: Mon, 17 Nov 2025 11:34:03 -0500 Subject: [PATCH] mention install --- R/fortify-map.r | 2 +- R/utilities.r | 8 ++------ 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/R/fortify-map.r b/R/fortify-map.r index 858bedd19..5bb55c460 100644 --- a/R/fortify-map.r +++ b/R/fortify-map.r @@ -65,7 +65,7 @@ fortify.map <- function(model, data, ...) { #' } map_data <- function(map, region = ".", exact = FALSE, ...) { try_require("maps", "map_data") - fortify(map(map, region, exact = exact, plot = FALSE, fill = TRUE, ...)) + fortify(maps::map(map, region, exact = exact, plot = FALSE, fill = TRUE, ...)) } #' Create a layer of map borders. diff --git a/R/utilities.r b/R/utilities.r index 13d3d55ce..15feeae82 100644 --- a/R/utilities.r +++ b/R/utilities.r @@ -43,13 +43,9 @@ clist <- function(l) { } try_require <- function(package, fun) { - if (requireNamespace(package, quietly = TRUE)) { - library(package, character.only = TRUE) - return(invisible()) + if (!requireNamespace(package, quietly = TRUE)) { + stop(sprintf("Package %s required for %s, so please run install.packages('%s') and try again", package, fun, package), call. = FALSE) } - - stop("Package `", package, "` required for `", fun , "`.\n", - "Please install and try again.", call. = FALSE) } # Return unique columns