—- Packages —-

if (!requireNamespace(“leaflet”, quietly = TRUE)) install.packages(“leaflet”)

library(leaflet)

sites <- data.frame( Site = 1:28, Name = c( “HGS-3: Miami Canal below HGS-3 and S-3 at Lake Harbor”, “HGS-4: North New River Canal below HGS-4 near South Bay”, “HGS-5: West Palm Beach Canal below HGS-5 at Canal Point”, “L-3 Canal: L-3 Canal 7 miles west of S-8 near Andytown”, “S-8: Miami Canal at S-8 near Lake Harbor”, “S-11C: North New River Canal below S-11C near Fort Lauderdale”, “S-9: South New River Canal at S-9 near Davie”, “S-140: L-28 Borrow Canal below S-140 near Andytown”, “L-28 Interceptor: L-28 Interceptor Canal 0.5 mi below SR 84”, “Miami Canal @ SR 84: Miami Canal at Alligator Alley”, “Corps of Eng. Station 3-2: Gage 3-2 near Andytown”, “L-28 Canal: L-28 East Canal near Pinecrest”, “Everglades Station 3-28 near Pennsuco”, “S-12: Tamiami Canal above S-12A, Miami”, “S-12C: Tamiami Canal outlets Levee 67A to 40-Mile Bend”, “L-67 Canal: L-67A Canal 0.5 mile north of Tamiami Canal”, “Bridge 53: Tamiami Canal outlets L-30 to L-67A near Miami”, “S-5: West Palm Beach Canal above S-5A near Loxahatchee”, “1 mile east of S-5: West Palm Beach Canal 1 mile east of S-5AE”, “S-6: Hillsboro Canal at S-6 near Shawano”, “S-7: North New River Canal above S-7”, “S-1: Hillsboro Canal above S-10C”, “Everglades Sta. 1-15 near Delray Beach”, “Everglades Sta. 2-17 near Andytown”, “S-175: L-31W Canal above S-175 near Florida City”, “S-12A bulk precip: 40-Mile Bend near Pinecrest”, “S-9 bulk precip: Pump Station 9 near Davie”, “S-5 bulk precip: Pump Station 5 near Loxahatchee” ), Lat = c( 26.69534337436234, 26.69759911409245, 26.821303, 26.3291666666667, 26.650007600175, 26.2303600055878, 26.06147799, 26.2111111111111, 26.1625, 26.1472222222222, 26.1825, 25.9333333333333, 25.8156547198718, 25.7616666666667, 25.758611, 25.7722222222222, 25.7611417431050, 26.6833333333333, 26.6833333333333, 26.4728491427831, 26.3333333333333, 26.4, 26.54431894, 26.28091418, 25.4, 25.7616666666667, 26.0611111111111, 26.6847222222222 ), Lon = c( -80.8067253843885, -80.7128143413584, -80.635129, -80.8833333333333, -80.7912773961615, -80.4594960590007, -80.4414426, -80.8277777777778, -80.8916666666667, -80.6361111111111, -80.7405555555556, -80.8125, -80.7214498179402, -80.825, -80.771667, -80.6638888888889, -80.5617046900682, -80.35, -80.35, -80.4468811194897, -80.5347222222222, -80.3833333333333, -80.15027776, -80.4192191, -80.5708333333333, -80.825, -80.4416666666667, -80.3708333333333 ) )

leaflet(sites) |> addProviderTiles(“Esri.WorldImagery”) |> addCircleMarkers( lng = ~Lon, lat = ~Lat, radius = 4, label = ~paste0(“Site”, Site, “:”, Name), popup = ~paste0(“Site”, Site, “
”, Name, “
Lat:”, round(Lat, 5), “
Lon:”, round(Lon, 5)) ) |> addLabelOnlyMarkers( lng = ~Lon, lat = ~Lat, label = ~Site, labelOptions = labelOptions(noHide = TRUE, textsize = “10px”) )