From 3a0ecf72f200ebb89e36bdc44ffa9aaed101ea3c Mon Sep 17 00:00:00 2001
From: Rob Wiederstein <khuon68@gmail.com>
Date: Mon, 9 Mar 2026 16:29:12 -0400
Subject: [PATCH] Sort listings table by price per sqft ascending

---
 app.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/app.R b/app.R
index 38bfe81..27077d9 100644
--- a/app.R
+++ b/app.R
@@ -510,6 +510,7 @@ server <- function(input, output) {
     datatable(
       listings |>
         select(listed_date, address, sqft, price, price_per_sqft) |>
+        arrange(price_per_sqft) |>
         mutate(
           price         = scales::dollar(price),
           price_per_sqft = scales::dollar(price_per_sqft)