Commit 51afdb11 authored by Thierry Feuillet's avatar Thierry Feuillet
Browse files

ok

parent 9fed1178
Pipeline #9413 failed with stage
in 1 second
Nom,CODE,URL,X,Y
LADYSS,UMR 7533 CNRS,https://www.ladyss.com/,2.213378,48.903332
DYNAFOR,UMR 1201 INRA/INPT-ENSAT,https://www.dynafor.fr/,1.501024607562091,43.52931192395443
CEFE,UMR 5175,https://www.cefe.cnrs.fr/fr/,3.864052569316585,43.638543877139675
CHCSC,,https://www.chcsc.uvsq.fr/,2.0445573404277995,48.780214130500624
HNHP,UMR 7194,https://hnhp.mnhn.fr/fr,2.7474690388775596,42.813558660974685
Pléiade,,,2.340382631241226,48.95647270483741
Universidad Autónoma de Madrid,,https://www.uam.es/uam/en/inicio,-3.688868736261541,40.54757877382749
UTF-8
\ No newline at end of file
PROJCS["RGF_1993_Lambert_93",GEOGCS["GCS_RGF_1993",DATUM["D_RGF_1993",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["False_Easting",700000.0],PARAMETER["False_Northing",6600000.0],PARAMETER["Central_Meridian",3.0],PARAMETER["Standard_Parallel_1",49.0],PARAMETER["Standard_Parallel_2",44.0],PARAMETER["Latitude_Of_Origin",46.5],UNIT["Meter",1.0]]
\ No newline at end of file
......@@ -6,7 +6,7 @@ output:
orientation: columns
theme: cosmo
vertical_layout: fill
logo: logo_small.png
logo: data/logo_small.png
source_code: embed
---
......@@ -17,6 +17,7 @@ library(mapview)
library(leaflet)
library(sf)
library(plotly)
library(tmap)
```
# Le projet {data-orientation=rows}
......@@ -29,12 +30,12 @@ library(plotly)
- Financé par l'ANR [https://anr.fr/Projet-ANR-21-CE03-0002](https://anr.fr/Projet-ANR-21-CE03-0002)
- Date de début du projet : Janvier 2022
- Durée : 36 mois
- Budget : 268k€
- Budget : 268 k€
##
### {data-width=150}
![](photo1.png)
![](data/photo1.png)
### **Résumé du projet**
......@@ -66,7 +67,7 @@ The team includes young and more experienced researchers, mainly in human and ph
### {data-width=150}
![](photo2.png)
![](data/photo2.png)
# Premiers résultats
......@@ -76,10 +77,19 @@ Row {data-width=600}
### **Cartographie des parcelles**
```{r, eval = TRUE, echo = FALSE, message=FALSE, warning=FALSE}
parcelles <- st_read("parcelles_alti.shp", quiet = T)
map <- mapview(parcelles, legend=F, col.regions="red",
map.types = c("OpenTopoMap"))
setView(map@map, lng = 1.84, lat = 42.6, zoom=12)
parcelles <- st_read("data/parcelles.shp", quiet = T)
vues <- parcelles %>% filter(Terrain == "VU") %>% st_centroid()
# map <- mapview(parcelles$shftQrt, legend=F, col.regions="red",
# map.types = c("OpenTopoMap"))
# setView(map@map, lng = 1.84, lat = 42.6, zoom=12)
tmap_mode("view")
tm_basemap(leaflet::providers$OpenTopoMap) +
tm_shape(parcelles) +
tm_polygons(col = "shftQrt", palette = "-RdBu") +
tm_view(set.view = c(1.84, 42.62, 12)) +
tm_shape(vues) +
tm_dots()
```
Chart {.tabset} {data-width=300}
......@@ -111,7 +121,7 @@ Le consortium est composé de biogéographes, de géographes ruralistes, de géo
## Rows {data-width=300}
```{r, eval = TRUE, echo = FALSE, message=FALSE, warning=FALSE}
labos <- read.csv("labos.csv")
labos <- read.csv("data/labos.csv")
labos_sf <- labos %>% st_as_sf(coords = c("X","Y"), crs = 4326)
mapview(labos_sf, legend = F)
```
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment