Edit documentation to show all examples within if (require("maps")) statements (#3082)

Author: sowla

R/annotation-map.r

@@ -17,7 +17,9 @@ NULL
 #' ggplot(seal.sub, aes(x = long, y = lat)) +
 #'   annotation_map(usamap, fill = "NA", colour = "grey50") +
 #'   geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))
+#' }
 #'
+#' if (require("maps")) {
 #' seal2 <- transform(seal.sub,
 #'   latr = cut(lat, 2),
 #'   longr = cut(long, 2))

R/coord-map.r

@@ -43,36 +43,78 @@
 #'
 #' # Plot it in cartesian coordinates
 #' nzmap
+#' }
+#'
+#' if (require("maps")) {
 #' # With correct mercator projection
 #' nzmap + coord_map()
+#' }
+#'
+#' if (require("maps")) {
 #' # With the aspect ratio approximation
 #' nzmap + coord_quickmap()
+#' }
 #'
+#' 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")
 #'
 #' # Use cartesian coordinates
 #' usamap
+#' }
+#'
+#' if (require("maps")) {
 #' # With mercator projection
 #' usamap + coord_map()
+#' }
+#'
+#' 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)
+#' }
+#'
+#' if (require("maps")) {
 #'
 #' # World map, using geom_path instead of geom_polygon
 #' world <- map_data("world")
@@ -83,8 +125,14 @@
 #'
 #' # Orthographic projection with default orientation (looking down at North pole)
 #' worldmap + coord_map("ortho")
+#' }
+#'
+#' if (require("maps")) {
 #' # Looking up up at South Pole
 #' worldmap + coord_map("ortho", orientation = c(-90, 0, 0))
+#' }
+#'
+#' if (require("maps")) {
 #' # Centered on New York (currently has issues with closing polygons)
 #' worldmap + coord_map("ortho", orientation = c(41, -74, 0))
 #' }

R/fortify-map.r

@@ -15,7 +15,9 @@
 #' head(fortify(ca))
 #' ggplot(ca, aes(long, lat)) +
 #'   geom_polygon(aes(group = group))
+#' }
 #'
+#' if (require("maps")) {
 #' tx <- map("county", "texas", plot = FALSE, fill = TRUE)
 #' head(fortify(tx))
 #' ggplot(tx, aes(long, lat)) +
@@ -65,7 +67,9 @@ fortify.map <- function(model, data, ...) {
 #' ggplot(choro, aes(long, lat)) +
 #'   geom_polygon(aes(group = group, fill = assault)) +
 #'   coord_map("albers",  at0 = 45.5, lat1 = 29.5)
+#' }
 #'
+#' if (require("maps")) {
 #' ggplot(choro, aes(long, lat)) +
 #'   geom_polygon(aes(group = group, fill = assault / murder)) +
 #'   coord_map("albers",  at0 = 45.5, lat1 = 29.5)
@@ -97,20 +101,25 @@ map_data <- function(map, region = ".", exact = FALSE, ...) {
 #' ia <- map_data("county", "iowa")
 #' mid_range <- function(x) mean(range(x))
 #' seats <- do.call(rbind, lapply(split(ia, ia$subregion), function(d) {
-#'   data.frame(lat = mid_range(d$lat), long = mid_range(d$long))
+#'   data.frame(lat = mid_range(d$lat), long = mid_range(d$long), subregion = unique(d$subregion))
 #' }))
+#'
 #' ggplot(ia, aes(long, lat)) +
 #'   geom_polygon(aes(group = group), fill = NA, colour = "grey60") +
 #'   geom_text(aes(label = subregion), data = seats, size = 2, angle = 45)
+#' }
 #'
+#' if (require("maps")) {
 #' data(us.cities)
 #' capitals <- subset(us.cities, capital == 2)
 #' ggplot(capitals, aes(long, lat)) +
 #'   borders("state") +
 #'   geom_point(aes(size = pop)) +
 #'   scale_size_area() +
 #'   coord_quickmap()
+#' }
 #'
+#' if (require("maps")) {
 #' # Same map, with some world context
 #' ggplot(capitals, aes(long, lat)) +
 #'   borders("world", xlim = c(-130, -60), ylim = c(20, 50)) +