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,