From 5bc3300cebc686d7e44be2834d28859b901afd2a Mon Sep 17 00:00:00 2001
From: Rob Wiederstein <khuon68@gmail.com>
Date: Mon, 9 Mar 2026 16:26:36 -0400
Subject: [PATCH] Cluster listings markers to handle overlapping coordinates

---
 app.R | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/app.R b/app.R
index f23e1fb..38bfe81 100644
--- a/app.R
+++ b/app.R
@@ -491,15 +491,16 @@ server <- function(input, output) {
         label       = ~sub_name
       ) |>
       addMarkers(
-        data    = listings,
-        lat     = ~latitude,
-        lng     = ~longitude,
-        popup   = ~paste0(
+        data           = listings,
+        lat            = ~latitude,
+        lng            = ~longitude,
+        popup          = ~paste0(
           "<b>", address, "</b><br>",
           "Price: ", scales::dollar(price), "<br>",
           "Sq Ft: ", sqft, "<br>",
           "$/Sq Ft: ", scales::dollar(price_per_sqft)
-        )
+        ),
+        clusterOptions = markerClusterOptions()
       ) |>
       setView(lng = -82.362253, lat = 27.076199, zoom = 16)
   })