Display last sale date on Owners tab

- options(timeout = 300) added to update_owners.R — 87.5 MB SCPA
  file exceeds the 60s default
- TODO updated: cron job tested end-to-end 2026-03-09

TODO.md

@@ -9,10 +9,9 @@
 
 - [ ] Verify SCPA Public.xlsx column structure is stable across downloads
 - [ ] Delete app from shinyapps.io (account: rob-wiederstein, appId: 14173710)
-- [ ] Add cron job to run `update_owners.R` weekly inside the rstudio container:
+- [x] Add cron job to run `update_owners.R` weekly inside the rstudio container:
-      `docker exec rstudio Rscript /home/rstudio/projects/r/stAndrews/data-raw/update_owners.R`
+      Runs every Sunday at 11pm via crontab; restarts standrews_shiny after; logs to ~/standrews_update.log
-      Note: app must reload `owners.rds` after refresh — either restart container or
+      Tested end-to-end 2026-03-09 — 388 owners written, options(timeout=300) required for 87.5 MB download
-      make app reactive to file changes
 
 ## Features
 

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,

data-raw/update_owners.R

@@ -12,6 +12,8 @@ library(dplyr)
 library(stringr)
 library(sf)
 
+options(timeout = 300)
+
 subdivisions <- c(
   "8120", "8113", "8171", "8195", "8221",
   "8163", "8240", "8159", "8149", "8110", "8254", "8215", "8143"