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) })