From f31678b48a64f6b3a897549b51d0ccc49b8a742c Mon Sep 17 00:00:00 2001
From: Lambert Patrick <patrick.mh.lambert@inrae.fr>
Date: Tue, 21 Mar 2023 12:12:43 +0100
Subject: [PATCH] feat: modify exploration of page 1

since frontiers have been removed from tm_draw, need to display
frontiers in static maps #67
---
 .gitignore                          |  1 +
 data-raw/bb-page1-catch-bycatch.Rmd | 10 ++++------
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/.gitignore b/.gitignore
index 3641738..a4e0771 100644
--- a/.gitignore
+++ b/.gitignore
@@ -19,3 +19,4 @@ data-raw/translation.Rmd
 dev/translation.html
 dev/data-docker/
 bdd_connect.sh
+/data-raw/*.html
diff --git a/data-raw/bb-page1-catch-bycatch.Rmd b/data-raw/bb-page1-catch-bycatch.Rmd
index cf59488..9082fec 100644
--- a/data-raw/bb-page1-catch-bycatch.Rmd
+++ b/data-raw/bb-page1-catch-bycatch.Rmd
@@ -21,7 +21,7 @@ knitr::opts_chunk$set(
 ```{r setup}
 # Sys.setenv("POSTGRES_USER" = "diadesatlas_owner")
 # Sys.setenv("POSTGRES_PASS" = "thinkrpassword")
-pkgload::load_all(here::here())
+pkgload::load_all(here::here()) # simulate installation and give access to objects in the package
 library(dplyr)
 session <- shiny::MockShinySession$new() #new.env()
 connect(session)
@@ -40,17 +40,15 @@ Sys.setenv(
 # Liste des espèces 
 
 ```{r}
-get_active_species(
+species <- get_active_species(
   session = session
 )
+species
 ```
 
 ## Conservation status
 
 ```{r}
-species <- get_active_species(
-  session = session
-)
 for (i in species$species_id) {
   cli::cat_rule(i)
   print(
@@ -118,7 +116,7 @@ tm1 <- tm_draw(
   ices_geom = datasets$ices_geom,
   session = session
 )
-tm1
+diades.atlas::tm_frontiers +tm1
 # tmap_leaflet(tm1)
 ```