reduce examples of coord_map so it runs faster on 32bit windows cran machine

Author: thomasp85

R/coord-map.r

@@ -57,18 +57,10 @@
 #'
 #' if (require("maps")) {
 #' # Other projections
-#' nzmap + coord_map("cylindrical")
-#' }
-#'
-#' if (require("maps")) {
 #' nzmap + coord_map("azequalarea", orientation = c(-36.92, 174.6, 0))
 #' }
 #'
 #' if (require("maps")) {
-#' nzmap + coord_map("lambert", parameters = c(-37, -44))
-#' }
-#'
-#' if (require("maps")) {
 #' states <- map_data("state")
 #' usamap <- ggplot(states, aes(long, lat, group = group)) +
 #'   geom_polygon(fill = "white", colour = "black")
@@ -83,39 +75,27 @@
 #' }
 #'
 #' if (require("maps")) {
-#' usamap + coord_quickmap()
-#' }
-#'
-#' if (require("maps")) {
 #' # See ?mapproject for coordinate systems and their parameters
 #' usamap + coord_map("gilbert")
 #' }
 #'
 #' if (require("maps")) {
-#' usamap + coord_map("lagrange")
-#' }
-#'
-#' if (require("maps")) {
 #' # For most projections, you'll need to set the orientation yourself
 #' # as the automatic selection done by mapproject is not available to
 #' # ggplot
 #' usamap + coord_map("orthographic")
 #' }
 #'
 #' if (require("maps")) {
-#' usamap + coord_map("stereographic")
-#' }
-#'
-#' if (require("maps")) {
 #' usamap + coord_map("conic", lat0 = 30)
 #' }
 #'
 #' if (require("maps")) {
 #' usamap + coord_map("bonne", lat0 = 50)
 #' }
 #'
+#' \dontrun{
 #' if (require("maps")) {
-#'
 #' # World map, using geom_path instead of geom_polygon
 #' world <- map_data("world")
 #' worldmap <- ggplot(world, aes(x = long, y = lat, group = group)) +
@@ -136,6 +116,7 @@
 #' # Centered on New York (currently has issues with closing polygons)
 #' worldmap + coord_map("ortho", orientation = c(41, -74, 0))
 #' }
+#' }
 coord_map <- function(projection="mercator", ..., parameters = NULL, orientation = NULL, xlim = NULL, ylim = NULL, clip = "on") {
   if (is.null(parameters)) {
     params <- list(...)