From 3787a37172ada8d90a3be6f5384fe50cdd9501c0 Mon Sep 17 00:00:00 2001
From: Rob Wiederstein <khuon68@gmail.com>
Date: Mon, 9 Mar 2026 12:43:56 -0400
Subject: [PATCH] Display last sale date on Owners tab

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

diff --git a/app.R b/app.R
index 102e8b5..37f05c0 100644
--- a/app.R
+++ b/app.R
@@ -9,6 +9,7 @@ library(DT)
 
 # load data ----
 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")
 venice_bndry <- readRDS("./data/venice.rds")
 venice_facts <- readRDS("./data/venice_facts.rds")
@@ -193,6 +194,7 @@ ui <- f7Page(
           title = "Owners:",
           divider = TRUE,
           raised = TRUE,
+          footer = paste0("Last sale date: ", last_sale_date),
           f7List(
             inset = TRUE,
             dividers = TRUE,