diff --git a/R/mod_a_first_fct_map.R b/R/mod_a_first_fct_map.R index 09ff960..cd6b2a6 100644 --- 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 index 727e8ed..0b7fd9f 100644 --- 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 index 9b4e2b3..a99bfa6 100644 --- 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",