From 6a57a18660ed746263853245f331dc8888c8befa Mon Sep 17 00:00:00 2001 From: Rob Wiederstein Date: Mon, 9 Mar 2026 17:30:56 -0400 Subject: [PATCH] Fix Resources tab: use renderUI instead of conditionalPanel for section toggle --- app.R | 109 ++++++++++++++++++++++++++++++---------------------------- 1 file changed, 56 insertions(+), 53 deletions(-) diff --git a/app.R b/app.R index 3a650df..98c6c10 100644 --- a/app.R +++ b/app.R @@ -227,61 +227,11 @@ ui <- f7Page( 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, - 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") - ) - ) - ) + uiOutput("resources_content") ) ### end tabs---- ), @@ -315,8 +265,61 @@ server <- function(input, output, session) { }) # resources sub-section toggle - observeEvent(input$res_beaches, { updateTextInput(session, "res_section", value = "beaches") }) - observeEvent(input$res_links, { updateTextInput(session, "res_section", value = "links") }) + res_section <- reactiveVal("beaches") + observeEvent(input$res_beaches, { res_section("beaches") }) + observeEvent(input$res_links, { res_section("links") }) + + 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") + ) + ) + ) + } + }) filteredSbdvn <- reactive({ if (is.null(input$sub_name) || input$sub_name == "All") {