From 6b84406f5444cdfc13b5dc76c9398978c77d2c5f Mon Sep 17 00:00:00 2001
From: zoometh <thomashuet7@gmail.com>
Date: Fri, 8 Nov 2024 07:43:57 +0000
Subject: [PATCH] varia

---
 talks/2024-chma/index.qmd | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/talks/2024-chma/index.qmd b/talks/2024-chma/index.qmd
index 2beac2e1..d74070e3 100644
--- a/talks/2024-chma/index.qmd
+++ b/talks/2024-chma/index.qmd
@@ -1012,7 +1012,7 @@ Destruction: iconoclasm, looting, etc.
 
 ::: columns
 
-::: {.column width="60%"}
+::: {.column width="50%"}
 <center>
 
 <img src="https://raw.githubusercontent.com/eamena-project/eamena-arches-dev/master/talks/2024-chma/img/joad_bijan_huet24.png" height="370">
@@ -1021,20 +1021,18 @@ Destruction: iconoclasm, looting, etc.
 </center>
 :::
 
-::: {.column width="40%"}
+::: {.column width="50%"}
 
 ```{r}
-#| out-width: 400
-#| out-height: 400
-
-leaflet::leaflet() %>%
-  leaflet::addProviderTiles(leaflet::providers$"Esri.WorldImagery", group = "Ortho") %>%
-  leaflet::addProviderTiles(leaflet::providers$"OpenStreetMap", group = "OSM") %>%
-  leaflet::addMarkers(lng = 30.833333, lat = 61.666667, popup="Temple of Bel") %>%
-  leaflet::addLayersControl(
-    baseGroups = c("Ortho", "OSM"),
-    position = "topright") 
+library(dplyr)
+# df <- st_read(paste0(dirIn, "neonet-data-2023-10-22-select-aera.geojson"), quiet = T)
+df <- sf::st_read("https://raw.githubusercontent.com/eamena-project/eamena-arches-dev/main/projects/sistan/hamun_lake.geojson", quiet = T)
+roi <- paste0('<a href="', "https://github.com/eamena-project/eamena-arches-dev/blob/main/projects/_gs/E30N29-41.geojson", '" target="_blank">E30N29-41</a>')
+leaflet::leaflet(df, width = "600px", height = "400px") %>%
+  leaflet::addTiles() %>%
+  leaflet::addPolygons(popup = roi)# "<b>Hello World</b>")
 ```
+
 :::
 
 :::