Carte interactive avec fond OSM

# Charger les bibliothèques nécessaires
library(leaflet)

## Warning: le package 'leaflet' a été compilé avec la version R 4.2.3

library(dplyr)

## Warning: le package 'dplyr' a été compilé avec la version R 4.2.3

## 
## Attachement du package : 'dplyr'

## Les objets suivants sont masqués depuis 'package:stats':
## 
##     filter, lag

## Les objets suivants sont masqués depuis 'package:base':
## 
##     intersect, setdiff, setequal, union

library(sf)

## Warning: le package 'sf' a été compilé avec la version R 4.2.3

## Linking to GEOS 3.9.3, GDAL 3.5.2, PROJ 8.2.1; sf_use_s2() is TRUE

# Charger les données des Directions Régionales (exemple shapefile)
# Remplacer 'path_to_shapefile' par le chemin vers votre fichier shapefile
directions_regionales <- st_read("C:/Users/Free/Downloads/SOUA/FONCTION PUBLUQUE/#MINEF/DRCF/TRAVAIL_DRCF/Carte du DRCF/DREF_14_05_2024_wgs84/DREF_14_05_2024_wgs84.shp")

## Reading layer `DREF_14_05_2024_wgs84' from data source 
##   `C:\Users\Free\Downloads\SOUA\FONCTION PUBLUQUE\#MINEF\DRCF\TRAVAIL_DRCF\Carte du DRCF\DREF_14_05_2024_wgs84\DREF_14_05_2024_wgs84.shp' 
##   using driver `ESRI Shapefile'
## Simple feature collection with 24 features and 7 fields
## Geometry type: POINT
## Dimension:     XY
## Bounding box:  xmin: -7.67491 ymin: 4.75088 xmax: -2.795087 ymax: 9.583516
## Geodetic CRS:  WGS 84

# Créer la carte interactive
leaflet(data = directions_regionales) %>%
  addTiles() %>%  # Ajouter le fond OSM
  addMarkers(
    lng = ~st_coordinates(geometry)[,1], 
    lat = ~st_coordinates(geometry)[,2], 
    popup = ~as.character(SERVICES)  # Remplacer 'NOM' par le nom du champ contenant le nom des Directions Régionales
  )