From 3ffb03301b5eaabe4d92e9af91f26b42669a49bf Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
 <juliette.engelaere@developpement-durable.gouv.fr>
Date: Fri, 22 Nov 2024 22:12:37 +0100
Subject: [PATCH] =?UTF-8?q?Mise=20=C3=A0=20jour=20nov=202024?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 06-les-operations-sur-donnees-spatiales.Rmd | 3 +--
 07-operations-geometriques.Rmd              | 2 +-
 13-osm.Rmd                                  | 9 +++++----
 Dockerfile                                  | 3 ++-
 4 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/06-les-operations-sur-donnees-spatiales.Rmd b/06-les-operations-sur-donnees-spatiales.Rmd
index 2d5ffd9..4f8abca 100644
--- a/06-les-operations-sur-donnees-spatiales.Rmd
+++ b/06-les-operations-sur-donnees-spatiales.Rmd
@@ -463,8 +463,7 @@ Le 44 comprend `r nrow(boul_44)` boulangeries.
 ```{r}
 intersection <- st_intersects(grille_ajustee, boul_44, sparse = TRUE)
 
-dim(intersection)
-
+intersection[1:10]
 ```
 
 L'objet **intersection** est une liste de la longueur de l'objet **grille_ajustee** et chaque élément de la liste contient le ou les index des éléments de l'objet **boul_44** qu'il intersecte.
diff --git a/07-operations-geometriques.Rmd b/07-operations-geometriques.Rmd
index 607ea83..cd77b1a 100644
--- a/07-operations-geometriques.Rmd
+++ b/07-operations-geometriques.Rmd
@@ -307,7 +307,7 @@ regions <- departements_geo %>%
 mapview(regions, legend = FALSE)
 ```
 
-Derrière cette opération, `summarise()` utilise `st_union()` du package `sf` pour dissourdre les polygones des départements en un seul polygone régional.
+Derrière cette opération, `summarise()` utilise `st_union()` du package `sf` pour dissoudre les polygones des départements en un seul polygone régional.
 
 ```{r}
 regions_52 <- departements_geo %>%
diff --git a/13-osm.Rmd b/13-osm.Rmd
index 61a73d3..d3ac460 100644
--- a/13-osm.Rmd
+++ b/13-osm.Rmd
@@ -70,10 +70,10 @@ Le package `{ggspatial}` permet de télécharger et d'afficher des fonds de cart
 boul_44 <- filter(sirene44, APET700 == "1071C") %>% 
   select(SIREN, NOMEN_LONG)
 
-ggplot(boul_44) +
+ggplot(data = boul_44) +
   annotation_map_tile(type = "osm") +
   geom_sf() +
-  theme_gouv_map()
+  theme_void()
 
 ```
 
@@ -171,9 +171,10 @@ Préparons nos données :
 ```{r osrmtable}
 load("extdata/sirene.RData")
 emprise_nantes <- COGiter::communes_geo %>% 
-  filter(DEPCOM == "44109")
+  filter(DEPCOM == "44109") 
 
-restaurants_nantes <- filter(sirene44, APET700 == "5610A")%>% 
+restaurants_nantes <- filter(sirene44, APET700 == "5610A") %>% 
+  st_transform(2154) %>% 
   st_filter(emprise_nantes) %>% 
   st_transform(4326)
 ```
diff --git a/Dockerfile b/Dockerfile
index 8d232c9..2407099 100644
--- a/Dockerfile
+++ b/Dockerfile
@@ -1,4 +1,5 @@
-ARG R_VERSION=4.2.1
+ARG R_VERSION=4.4.1
+ARG GITHUB_PAT=${{ secrets.GITHUB_TOKEN }}
 
 FROM inseefrlab/onyxia-rstudio:r${R_VERSION}
 RUN apt-get update && apt-get install -y cargo