rkw/stAndrews
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sort listings table by price per sqft ascending
All checks were successful
Deploy stAndrews / deploy (push) Successful in 5s
Details

Browse Source
This commit is contained in:
Rob Wiederstein
2026-03-09 16:29:12 -04:00
parent 5bc3300ceb
commit 3a0ecf72f2
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app.R
View File

@@ -510,6 +510,7 @@ server <- function(input, output) {
datatable( datatable(
listings |> listings |>
select(listed_date, address, sqft, price, price_per_sqft) |> select(listed_date, address, sqft, price, price_per_sqft) |>
arrange(price_per_sqft) |>
mutate( mutate(
price = scales::dollar(price), price = scales::dollar(price),
price_per_sqft = scales::dollar(price_per_sqft) price_per_sqft = scales::dollar(price_per_sqft)