Fix Resources tab: use renderUI instead of conditionalPanel for section toggle

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 ----
+        uiOutput("resources_content")
-        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")
-            )
-          )
-        )
       )
       ### 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") })
+  res_section <- reactiveVal("beaches")
-  observeEvent(input$res_links,   { updateTextInput(session, "res_section", value = "links") })
+  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") {