Mise à jour nov 2024

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.

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 %>%

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)
 ```

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