# Configuration file for St. Andrews Shiny App

app_config <- list(
  data_paths = list(
    owners = "./data/owners.rds",
    plats = "./data/plats/plats.shp",
    beaches = "./data/beaches.rds",
    listings = "./data/listings.rds",
    sales = "./data/sales.rds"
  ),
  update_config = list(
    subdivisions = c("8120", "8113", "8171", "8195", "8221", "8163", 
                     "8240", "8159", "8149", "8110", "8254", "8215", "8143"),
    timeout_seconds = 300
  ),
  map_config = list(
    default_lng = -82.362253,
    default_lat = 27.076199,
    default_zoom = 16,
    beach_lng = -82.4603,
    beach_lat = 27.0999,
    beach_zoom = 12
  ),
  app_config = list(
    title = "St. Andrews Park",
    theme = "ios",
    dark = TRUE
  )
)

# Helper function to get data path
get_data_path <- function(data_type) {
  if (data_type %in% names(app_config$data_paths)) {
    return(app_config$data_paths[[data_type]])
  } else {
    stop(paste("Unknown data type:", data_type))
  }
}