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

Display last sale date on Owners tab

Browse Source
This commit is contained in:
Rob Wiederstein
2026-03-09 12:43:56 -04:00
parent bcbe2b78a3
commit 3787a37172
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app.R
View File

@@ -9,6 +9,7 @@ library(DT)
# load data ---- # load data ----
owners <- readRDS("./data/owners.rds") owners <- readRDS("./data/owners.rds")
last_sale_date <- format(attr(owners, "last_sale_date"), "%Y-%m-%d")
sbdvn <- sf::st_read("./data/plats/plats.shp") sbdvn <- sf::st_read("./data/plats/plats.shp")
venice_bndry <- readRDS("./data/venice.rds") venice_bndry <- readRDS("./data/venice.rds")
venice_facts <- readRDS("./data/venice_facts.rds") venice_facts <- readRDS("./data/venice_facts.rds")
@@ -193,6 +194,7 @@ ui <- f7Page(
title = "Owners:", title = "Owners:",
divider = TRUE, divider = TRUE,
raised = TRUE, raised = TRUE,
footer = paste0("Last sale date: ", last_sale_date),
f7List( f7List(
inset = TRUE, inset = TRUE,
dividers = TRUE, dividers = TRUE,