fix: missing variables for map

Refs #3

Formation_airGRiwrm.Rmd

@@ -307,26 +307,9 @@ class: inverse, middle, center
 
 # Présentation du cas d'étude "Moyenne Vallée de l'Hérault"
 
-```{r load-data, include=FALSE}
-load("data/sf_herault.rda")
-load("data/sf_reaches.rda")
-sf_stations <- sf::st_as_sf(sf::st_drop_geometry(sf_herault), coords = c("mvd_outlet_x", "mvd_outlet_y"), crs = 2154)
-```
-
-
-```{r map-BV, echo=FALSE, message=FALSE, out.width="100%", fig.asp=0.4}
-library(tmap)
-tmap_mode("view")
-tm <-
-  tm_basemap(server = "OpenStreetMap") +
-  tm_shape(sf_reaches) +
-  tm_lines(col = "#423089") +
-  tm_shape(sf_herault) +
-  tm_text(text = "id", col = "black", size = 1, auto.placement = TRUE) +
-  tm_borders(col = "#008c8e", lwd = 2) + tm_fill(col = "#008c8e", alpha = 0.1) +
-  tm_shape(sf_stations) +
-  tm_dots(size = 0.05, alpha = 0.7)
-tm
+```{r map-BV, include=FALSE}
+source("R/plot_map.R")
+plot_map()
 ```
 
 ---
@@ -576,8 +559,9 @@ Lobligeois (2014).
 
 ]
 .pull-right[
-```{r, out.width="95%", echo=FALSE, fig.asp=0.4}
-tm
+```{r missing-Qobs-map, out.width="95%", echo=FALSE, fig.asp=0.4}
+source("R/plot_map.R")
+plot_map()
 ```
 ]
 

R/plot_map.R

+plot_map <- function(){
+  load("data/sf_herault.rda")
+  load("data/sf_reaches.rda")
+  sf_stations <- sf::st_as_sf(sf::st_drop_geometry(sf_herault), coords = c("mvd_outlet_x", "mvd_outlet_y"), crs = 2154)
+  library(tmap)
+  tmap_mode("view")
+  tm <-
+    tm_basemap(server = "OpenStreetMap") +
+    tm_shape(sf_reaches) +
+    tm_lines(col = "#423089") +
+    tm_shape(sf_herault) +
+    tm_text(text = "id", col = "black", size = 1, auto.placement = TRUE) +
+    tm_borders(col = "#008c8e", lwd = 2) + tm_fill(col = "#008c8e", alpha = 0.1) +
+    tm_shape(sf_stations) +
+    tm_dots(size = 0.05, alpha = 0.7)
+  tm
+}