# Încărcare biblioteci
library(sf)
## Linking to GEOS 3.13.1, GDAL 3.11.0, PROJ 9.6.0; sf_use_s2() is TRUE
library(leaflet)
library(htmltools)

# Citire fișier restaurante
local_points <- st_read("restaurante_punct.geojson", quiet = TRUE)
local_points_wgs84 <- st_transform(local_points, crs = 4326)

# Descărcare date WFS pentru unități de relief
wfs_countries_url <- paste0(
  "https://ahocevar.com/geoserver/wfs?",
  "service=WFS&version=1.1.0&request=GetFeature",
  "&typename=ne:ne_10m_admin_0_countries",
  "&outputFormat=application/json",
  "&srsname=EPSG:4326"
)

countries <- st_read(wfs_countries_url, quiet = TRUE)

# Harta interactivă
browsable(
  print(
    leaflet() %>%
      addTiles(
        urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer/tile/{z}/{y}/{x}",
        attribution = '&copy; <a href="https://www.esri.com/">Esri</a> — Source: Esri, DeLorme, NAVTEQ'
      ) %>%
      
      addPolygons(
        data = countries,
        color = "#1E90FF",
        weight = 1.5,
        fillColor = "#0097ff4d",  # HEX color în loc de RGBA
        fillOpacity = 0.7,
          # adaptează numele coloanei dacă e diferit
      ) %>%
      
      addCircleMarkers(
        data = local_points_wgs84,
        radius = 9,
        color = "CornflowerBlue",
        fillColor = "Chocolate",
        stroke = TRUE,
        fillOpacity = 0.8,
        popup = ~paste0("<b>", denumire, "</b><br/>Specific: ", specific)
      ) %>%
      
      addMarkers(
        lng = 26.19805487273924, 
        lat = 44.40866849466781,
        popup = "<div style='width:320px; height:240px;'>
           <b>GIF animat:</b><br/>
           <img src='https://cdn.pixabay.com/animation/2024/07/08/23/35/23-35-38-440_512.gif' 
                style='width:90%; height:90%; object-fit: contain;'/>
         </div>"

      ) %>%
      
      setView(lng = 26.198254475893425, lat = 44.4071863220655,  zoom = 14) %>%
      addScaleBar(position = "bottomleft") %>%
      addControl("© Creat cu R", position = "bottomright")
  )
)