39 lines
988 B
R
39 lines
988 B
R
# 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))
|
|
}
|
|
}
|