Combine Beach and Resources into single Resources tab with segmented control

app.R

@@ -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,42 +222,64 @@ ui <- f7Page(
           DTOutput("sales_table")
         )
       ),
-      #### services ----
+      #### resources ----
       f7Tab(
         title = "Resources",
         tabName = "Resources",
         icon = f7Icon("hammer_fill"),
-        f7BlockTitle(title = "Services:", size = "medium"),
+        tags$div(style = "display:none;", textInput("res_section", "", value = "beaches")),
-        f7Block(
+        f7Segment(
-          f7List(
+          f7Button(inputId = "res_beaches", label = "Beaches"),
-            mode = "links",
+          f7Button(inputId = "res_links",   label = "Links")
-            inset = TRUE,
+        ),
-            outline = TRUE,
+        ##### beaches sub ----
-            dividers = TRUE,
+        conditionalPanel(
-            strong = TRUE,
+          condition = "input.res_section == 'beaches'",
-            f7Link(label = "City of Venice", href = "https://www.venicegov.com/"),
+          f7Card(
-            f7Link(label = "Florida Power & Light", href = "https://www.fpl.com/"),
+            title = "Beaches",
-            f7Link(label = "Sarasota County", href = "https://www.scgov.net/"),
+            divider = TRUE,
-            f7Link(label = "Property Appraiser", href = "https://www.sc-pa.com/"),
+            leafletOutput("beach_map"),
-            f7Link(label = "Open GIS Portal", href = "https://data-sarco.opendata.arcgis.com/"),
+            footer = p("Source: Environmental Protection Agency")
-            f7Link(label = "Waste & Recycling", href = "https://www.venicegov.com/government/public-works/waste-and-recycling"),
+          ),
-            f7Link(label = "Condo Regulation", href = "https://condos.myfloridalicense.com/"),
+          f7Block(
-            f7Link(label = "Property Records Search", href = "https://www.sarasotaclerk.com/records/official-records/search-land-records")
+            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)
+            )
           )
         ),
-        f7BlockTitle(title = "Documents:", size = "medium"),
+        ##### links sub ----
-        f7Block(
+        conditionalPanel(
-          f7List(
+          condition = "input.res_section == 'links'",
-            mode = "links",
+          f7BlockTitle(title = "Services:", size = "medium"),
-            inset = TRUE,
+          f7Block(
-            outline = TRUE,
+            f7List(
-            dividers = TRUE,
+              mode = "links", inset = TRUE, outline = TRUE, dividers = TRUE, strong = TRUE,
-            strong = TRUE,
+              f7Link(label = "City of Venice",         href = "https://www.venicegov.com/"),
-            f7Link(label = "St. Andrews Covenants", href = "docs/2000_01_01_st_andrews_covenants.pdf"),
+              f7Link(label = "Florida Power & Light",  href = "https://www.fpl.com/"),
-            f7Link(label = "St. Andrews (unrecorded)", href = "docs/2004_06_23_sap_map.pdf"),
+              f7Link(label = "Sarasota County",        href = "https://www.scgov.net/"),
-            f7Link(label = "Patios 2", href = "docs/1997_08_12_patios_2_plat.pdf"),
+              f7Link(label = "Property Appraiser",     href = "https://www.sc-pa.com/"),
-            f7Link(label = "Patios 3", href = "docs/1998_11_17_patios_3_plat.pdf"),
+              f7Link(label = "Open GIS Portal",        href = "https://data-sarco.opendata.arcgis.com/"),
-            f7Link(label = "Villas 2", href = "docs/1998_09_14_villas_2_plat.pdf")
+              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")
+            )
           )
         )
       )
@@ -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)