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

Combine Beach and Resources into single Resources tab with segmented control
All checks were successful
Deploy stAndrews / deploy (push) Successful in 4s
Details

Browse Source
This commit is contained in:
Rob Wiederstein
2026-03-09 17:28:14 -04:00
parent 267a279359
commit ec90f8236c
1 changed files with 57 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
app.R
View File

@@ -82,11 +82,6 @@ ui <- f7Page(
icon = f7Icon("info_circle"),
active = TRUE
),
f7PanelItem(
tabName = "Beach",
title = "Beach",
icon = f7Icon("sun_max_fill")
),
f7PanelItem(
tabName = "Owners",
title = "Owners",
@@ -136,53 +131,6 @@ ui <- f7Page(
)
)
),
#### beaches ----
f7Tab(
title = "Beach",
tabName = "Beach",
icon = f7Icon("sun_max_fill"),
active = TRUE,
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
)
)
)
),
#### owners ----
f7Tab(
title = "Owners",
@@ -274,19 +222,44 @@ ui <- f7Page(
DTOutput("sales_table")
)
),
#### services ----
#### resources ----
f7Tab(
title = "Resources",
tabName = "Resources",
icon = f7Icon("hammer_fill"),
tags$div(style = "display:none;", textInput("res_section", "", value = "beaches")),
f7Segment(
f7Button(inputId = "res_beaches", label = "Beaches"),
f7Button(inputId = "res_links", label = "Links")
),
##### beaches sub ----
conditionalPanel(
condition = "input.res_section == 'beaches'",
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)
)
)
),
##### links sub ----
conditionalPanel(
condition = "input.res_section == 'links'",
f7BlockTitle(title = "Services:", size = "medium"),
f7Block(
f7List(
mode = "links",
inset = TRUE,
outline = TRUE,
dividers = TRUE,
strong = TRUE,
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/"),
@@ -300,11 +273,7 @@ ui <- f7Page(
f7BlockTitle(title = "Documents:", size = "medium"),
f7Block(
f7List(
mode = "links",
inset = TRUE,
outline = TRUE,
dividers = TRUE,
strong = TRUE,
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"),
@@ -313,6 +282,7 @@ ui <- f7Page(
)
)
)
)
### end tabs----
),
### begin scripts ----
@@ -337,13 +307,17 @@ ui <- f7Page(
# define server ----
server <- function(input, output) {
server <- function(input, output, session) {
# update tabs depending on side panel
observeEvent(input$menu, {
updateF7Tabs(id = "tabs",
selected = input$menu)
})
# resources sub-section toggle
observeEvent(input$res_beaches, { updateTextInput(session, "res_section", value = "beaches") })
observeEvent(input$res_links, { updateTextInput(session, "res_section", value = "links") })
filteredSbdvn <- reactive({
if (is.null(input$sub_name) || input$sub_name == "All") {
return(sbdvn$max_sub_id)