Harta LPSIG

leaflet(data = puncte) %>%
  addProviderTiles("CartoDB.Positron") %>%
  addCircleMarkers(
    lng = ~lng,
    lat = ~lat,
    radius = 6,
    color = "red",
    fillOpacity = 0.8,
    popup = ~paste("Nume:", nume, "<br>Tip:", tip)
  ) %>%
  # punct animat simulat cu cerc mai mare/culoare diferita
  addCircleMarkers(
    lng = 26.12,
    lat = 44.43,
    radius = 12,
    color = "orange",
    fillColor = "yellow",
    fillOpacity = 0.4,
    stroke = TRUE,
    weight = 2,
    popup = "Punct B - Animație simbolică"
  ) %>%
  fitBounds(lng1 = 26.09, lat1 = 44.41, lng2 = 26.13, lat2 = 44.45) %>%
  addScaleBar(position = "bottomleft") %>%
  addControl("Minaila Iulian, Grupa 408 - Master SIG", position = "bottomright")