Merge commit 'd1b0fb53517060a8c41d62ef9180af3f3e011ac5'

wildlifeevoeco · May 21, 2020 · f16338d · f16338d
2 parents e0ff318 + d1b0fb5
commit f16338d
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 3 deletions.
diff --git a/R/12-manitoba-prep.R b/R/12-manitoba-prep.R
@@ -17,7 +17,7 @@ bounds <- ne_download(
 	returnclass = 'sf'
 )
 
-keepAdmin <- c('United States of America', 'Canada')
+keepAdmin <- c('United States of America', 'Canada', 'Greenland')
 
 keepb <- bounds[bounds$admin %in% keepAdmin,]
 

diff --git a/R/13-manitoba-figure.R b/R/13-manitoba-figure.R
@@ -28,7 +28,7 @@ source('R/00-palette.R')
 ## Theme
 themeMap <- theme(panel.border = element_rect(size = 1, fill = NA),
 									panel.background = element_rect(fill = watercol),
-									panel.grid = element_line(color = gridcol, size = 0.3),
+									panel.grid = element_line(color = gridcol, size = 0.2),
 									axis.text = element_text(size = 11, color = 'black'),
 									axis.title = element_blank())
 
@@ -43,7 +43,7 @@ mb <- bounds[bounds$name_en == 'Manitoba',]
 bb <- st_bbox(st_buffer(mb, 2.5e6))
 
 gmb <- ggplot() +
-	geom_sf(fill = islandcol, color = 'black', size = 0.2, data = bounds) +
+	geom_sf(fill = islandcol, color = 'black', size = 0.1, data = bounds) +
 	geom_sf(fill = '#cd0001', color = NA, alpha = 0.3, data = mb) +
 	geom_sf(fill = watercol, color = streamcol, size = 0.1, data = lakes) +
 	guides(color = FALSE, fill = FALSE) +

diff --git a/graphics/13-manitoba.png b/graphics/13-manitoba.png
diff --git a/output/manitoba-bounds.gpkg b/output/manitoba-bounds.gpkg