Skip to content
Snippets Groups Projects
Commit 29af61d5 authored by David Dorchies's avatar David Dorchies
Browse files

fix: missing variables for map

Refs #3
parent 77c57af1
No related branches found
No related tags found
No related merge requests found
Pipeline #265295 failed
......@@ -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()
```
]
......
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
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment