Sort listings table by price per sqft ascending

2026-03-09 16:29:12 -04:00
parent 5bc3300ceb
commit 3a0ecf72f2
1 changed files with 1 additions and 0 deletions
--- 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)