rkw/stAndrews
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace Resources segment buttons with
All checks were successful
Deploy stAndrews / deploy (push) Successful in 25s
Details

Browse Source 
accordion (Beaches, Services, Docs)
This commit is contained in:
Rob Wiederstein
2026-03-13 13:25:03 -04:00
parent 8e4c4ebff2
commit 4ef1e5511a
1 changed files with 3 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
R/app_server.R
View File

@@ -16,6 +16,9 @@ create_server <- function(input, output, session) {
ppsf_fmt = scales::dollar(price_per_sqft) ppsf_fmt = scales::dollar(price_per_sqft)
) )
last_sale_date <- format(attr(owners, "last_sale_date"), "%Y-%m-%d") last_sale_date <- format(attr(owners, "last_sale_date"), "%Y-%m-%d")
output$sales_date <- renderText({
paste("Last sale date included was", last_sale_date)
})
sbdvn <- sf::st_read(app_config$data_paths$plats) sbdvn <- sf::st_read(app_config$data_paths$plats)
beaches <- readRDS(app_config$data_paths$beaches) beaches <- readRDS(app_config$data_paths$beaches)
@@ -25,63 +28,6 @@ create_server <- function(input, output, session) {
selected = input$menu) selected = input$menu)
}) })
# resources sub-section toggle
res_section <- reactiveVal("beaches")
observeEvent(input$res_beaches, { res_section("beaches") })
observeEvent(input$res_links, { res_section("links") })
observeEvent(input$res_restart, { res_section("restart") })
output$resources_content <- renderUI({
if (res_section() == "beaches") {
tagList(
f7Card(
title = "Beaches",
divider = TRUE,
leafletOutput("beach_map"),
footer = p("Source: Environmental Protection Agency")
),
f7Block(
h3("Helpful Links:"),
f7List(
inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
f7ListItem(title = "EPA Beaches", href = "https://www.epa.gov/beaches", external = TRUE),
f7ListItem(title = "Red Tide Forecast", href = "https://habforecast.gcoos.org/", external = TRUE),
f7ListItem(title = "Healthy Beaches Program", href = "https://fdoh.maps.arcgis.com/apps/instant/nearby/index.html?appid=7106a20597de4bff98cc5ebc7f932047&findSource=0&find=1600%2520Harbor%2520Dr%2520S%252C%2520Venice%252C%2520Florida%252C%252034285&sliderDistance=2", external = TRUE),
f7ListItem(title = "MOTE Beach Conditions", href = "https://visitbeaches.org/beach/6/report/53033", external = TRUE),
f7ListItem(title = "National Hurricane Center", href = "https://www.nhc.noaa.gov/", external = TRUE)
)
)
)
} else {
tagList(
f7BlockTitle(title = "Services:", size = "medium"),
f7Block(
f7List(
mode = "links", inset = TRUE, outline = TRUE, dividers = TRUE, strong = TRUE,
f7Link(label = "City of Venice", href = "https://www.venicegov.com/"),
f7Link(label = "Florida Power & Light", href = "https://www.fpl.com/"),
f7Link(label = "Sarasota County", href = "https://www.scgov.net/"),
f7Link(label = "Property Appraiser", href = "https://www.sc-pa.com/"),
f7Link(label = "Open GIS Portal", href = "https://data-sarco.opendata.arcgis.com/"),
f7Link(label = "Waste & Recycling", href = "https://www.venicegov.com/government/public-works/waste-and-recycling"),
f7Link(label = "Condo Regulation", href = "https://condos.myfloridalicense.com/"),
f7Link(label = "Property Records Search", href = "https://www.sarasotaclerk.com/records/official-records/search-land-records")
)
),
f7BlockTitle(title = "Documents:", size = "medium"),
f7Block(
f7List(
mode = "links", inset = TRUE, outline = TRUE, dividers = TRUE, strong = TRUE,
f7Link(label = "St. Andrews Covenants", href = "docs/2000_01_01_st_andrews_covenants.pdf"),
f7Link(label = "St. Andrews (unrecorded)", href = "docs/2004_06_23_sap_map.pdf"),
f7Link(label = "Patios 2", href = "docs/1997_08_12_patios_2_plat.pdf"),
f7Link(label = "Patios 3", href = "docs/1998_11_17_patios_3_plat.pdf"),
f7Link(label = "Villas 2", href = "docs/1998_09_14_villas_2_plat.pdf")
)
)
)
}
})
# Initialize filteredOwners with all owners # Initialize filteredOwners with all owners
filteredOwners <- reactiveVal(owners) filteredOwners <- reactiveVal(owners)