Remove Venice tab and Census facts - not within Venice city limits

app.R

@@ -19,8 +19,6 @@ listings <- readRDS("./data/listings.rds") |>
 shared_listings <- SharedData$new(listings, key = ~address)
 last_sale_date <- format(attr(owners, "last_sale_date"), "%Y-%m-%d")
 sbdvn <- sf::st_read("./data/plats/plats.shp")
-venice_bndry <- readRDS("./data/venice.rds")
-venice_facts <- readRDS("./data/venice_facts.rds")
 beaches <- readRDS("./data/beaches.rds")
 
 # define ui ----
@@ -80,11 +78,6 @@ ui <- f7Page(
             icon = f7Icon("info_circle"),
             active = TRUE
           ),
-          f7PanelItem(
-            tabName = "Venice",
-            title = "Venice",
-            icon = f7Icon("map_pin")
-          ),
           f7PanelItem(
             tabName = "Beach",
             title = "Beach",
@@ -134,23 +127,6 @@ ui <- f7Page(
           )
         )
       ),
-      #### venice ----
-      f7Tab(
-        title = "Venice",
-        tabName = "Venice",
-        icon = f7Icon("map_pin"),
-        active = FALSE,
-        f7Card(
-          title = "Venice",
-          divider = "TRUE",
-          leafletOutput("venice_map")
-        ),
-        f7Card(
-          title = "Facts",
-          divider = "TRUE",
-          DTOutput("venice_facts")
-        )
-      ),
       #### beaches ----
       f7Tab(
         title = "Beach",
@@ -528,33 +504,6 @@ server <- function(input, output) {
     )
   })
 
-# venice map ----
-  output$venice_map <- renderLeaflet({
-    leaflet() %>% 
-      addProviderTiles("CartoDB.Voyager") %>% 
-      setView(lng = -82.4313, lat = 27.1059, zoom = 12) %>% 
-      addPolygons(
-        data = venice_bndry,
-        color = "red",
-        weight = 2,
-        opacity = 0.5,
-        fillOpacity = 0.2
-        )
-  })
-# venice facts ----
-  output$venice_facts <- renderDT({
-    datatable(
-      venice_facts,
-      rownames = FALSE,
-      options = list(
-        pageLength = 10,
-        scrollX = TRUE,
-        searching = FALSE,
-        lengthMenu = c(5, 10, 25, 50),
-        dom = 'tpi'
-      )
-    )
-  })
 # beach map ----
   output$beach_map <- renderLeaflet({
     leaflet() %>%