# refresh_all.R
# Weekly orchestrator. Downloads SCPA data files once, then updates
# owners and sales. Run via cron; container restart handled by cron.

options(timeout = 300)

cat("=== stAndrews weekly refresh", format(Sys.time()), "===\n")

# ── Download SCPA Public.xlsx ─────────────────────────────────────────────────
cat("Downloading SCPA Public.xlsx...\n")
download.file(
  url      = "https://www.sc-pa.com/downloads/SCPA%20Public.xlsx",
  destfile = "./data-raw/property/SCPA Public.xlsx",
  mode     = "wb"
)
cat("Done.\n")

# ── Download SCPA_Parcels_Sales_CSV.zip ───────────────────────────────────────
cat("Downloading SCPA_Parcels_Sales_CSV.zip...\n")
download.file(
  url      = "https://www.sc-pa.com/downloads/SCPA_Parcels_Sales_CSV.zip",
  destfile = "./data-raw/property/SCPA_Parcels_Sales_CSV.zip",
  mode     = "wb"
)
cat("Done.\n")

# ── Update owners ─────────────────────────────────────────────────────────────
cat("\n--- update_owners.R ---\n")
source("./data-raw/update_owners.R")

# ── Update sales ──────────────────────────────────────────────────────────────
cat("\n--- update_sales.R ---\n")
source("./data-raw/update_sales.R")

cat("\n=== Refresh complete", format(Sys.time()), "===\n")
