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(
"", address, "
",
"Price: ", scales::dollar(price), "
",
"Sq Ft: ", sqft, "
",
"$/Sq Ft: ", scales::dollar(price_per_sqft)
- )
+ ),
+ clusterOptions = markerClusterOptions()
) |>
setView(lng = -82.362253, lat = 27.076199, zoom = 16)
})