refactoring: restore countries display

The ICES rectangles do not include the coasts. issue: #67
inrae · May 4, 2023 · 1d01d0e · 1d01d0e
1 parent a91c027
commit 1d01d0e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/mod_a_first_fct_map.R b/R/mod_a_first_fct_map.R
@@ -154,7 +154,7 @@ tm_draw <- function(species_latin_name,
   # ------------------------------------------ display the map
   tm_graticules() +
     tm_ocean +
-    # tm_frontiers +
+    tm_frontiers +
     tm_catchmment +
     tm_layout(
       main.title.fontface = 3,

diff --git a/data-raw/bb-page1-catch-bycatch.Rmd b/data-raw/bb-page1-catch-bycatch.Rmd
@@ -116,7 +116,7 @@ tm1 <- tm_draw(
   ices_geom = datasets$ices_geom,
   session = session
 )
-diades.atlas::tm_frontiers +tm1
+tm1 + diades.atlas::tm_frontiers 
 # tmap_leaflet(tm1)
 ```
 

diff --git a/data-raw/frontiers.R b/data-raw/frontiers.R
@@ -7,7 +7,7 @@ library(rworldxtra)
 library(tmap)
 library(sf)
 
-worldMap <- getMap(resolution = "high") %>% st_as_sf()
+worldMap <- getMap(resolution = "low") %>% st_as_sf()
 
 states = c("Portugal", "Spain","France", "United Kingdom", "Ireland", "United Kingdom", "Belgium",
            "Netherlands", "Germany", "Denmark", "Sweden", "Norway", "Poland", "Switzerland","Italy",