Supermarket Map

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)

local_points <- st_read("PointSupermarket.geojson", quiet = TRUE)
local_points_wgs84 <- st_transform(local_points, crs = 4326)

wfs_judet_url <- paste0(
  "https://www.geo-spatial.org/geoserver/ows?",
  "service=WFS&version=2.0.0&request=GetFeature",
  "&typeName=geospatial:ro_limite_unitati_relief",
  "&outputFormat=application/json",
  "&srsName=EPSG:4326"
)
ro_judete <- st_read(wfs_judet_url, quiet = TRUE)

browsable(
  print(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      

      
      # Stratul WFS
      addPolygons(
        data = ro_judete,
        color = "#FF0000",
        weight = 1.5,
        fillColor = "rgba(172, 18, 243, 0.3)",
        fillOpacity = 0.2
        
      ) %>%

      # Punctele locale
      addCircleMarkers(
        data = local_points_wgs84,
        radius = 10,
        color = "pink",
        stroke = TRUE,
        fillOpacity = 0.9,
        popup = ~paste0("<b>", Denumire, "</b><br/>Cifra: ", cifra.de.afaceri)

      ) %>%

      # GIF animat
      addMarkers(
        lng = 26.128720928048818,  
        lat = 44.36924680187464,
        popup = "<div style='width:220px; height:140px;'>
           <b>GIF animat:</b><br/>
           <img src='https://cdn.dribbble.com/userupload/21285694/file/original-3348f215eaea1f548aa6f0330d97359a.gif' 
                style='width:90%; height:90%; object-fit: contain;'/>
         </div>"

      ) %>%

      setView(lng = 26.125932356376694, lat = 44.364926415144474, zoom = 12.5) %>%
      addScaleBar(position = "bottomleft") %>%
      addControl("© Creat cu R", position = "bottomright")
  )
)