stAndrews/app.R

# load libraries ----
library(shiny)
library(shinyMobile)
library(leaflet)
library(sf)
library(dplyr)
library(leafpop)
library(DT)

# load data ----
owners <- readRDS("./data/owners.rds")
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 ----
ui <- f7Page(
  title = "St. Andrews",
  ## header ----
  tags$head(
    tags$link(rel = "manifest", href = "manifest.json"),
    tags$link(rel = "apple-touch-icon", sizes = "180x180", href = "images/apple-touch-icon.png"),
    tags$meta(name = "apple-mobile-web-app-capable", content = "yes"),
    tags$meta(name = "apple-mobile-web-app-status-bar-style", content = "default"),
    tags$style(HTML("
      .dataTables_wrapper {
        color: white;
      }
      .dataTables_wrapper table.dataTable thead th,
      .dataTables_wrapper table.dataTable tbody td {
        color: white;
      }
      .dataTables_wrapper table.dataTable tbody tr.odd {
        background-color: #333;
      }
      .dataTables_wrapper table.dataTable tbody tr.even {
        background-color: #444;
      }
      .dataTables_wrapper .dataTables_paginate .paginate_button {
        color: white !important;
      }
      .dataTables_wrapper .dataTables_paginate .paginate_button.current{
        color: black !important;
      }
      .dataTables_filter {
        display: none; /* Hide the search box */
      }
    "))
  ),
  ## options ----
  options = list(
    theme = "ios",
    dark = TRUE,
    pullToRefresh = TRUE
  ),
  ## layout ----
  f7TabLayout(
    ### panels ----
    panels = tagList(
      f7Panel(
        id = "panel-left",
        side = "left",
        effect = "push",
        title = "Menu",
        f7PanelMenu(
          id = "menu",
          f7PanelItem(
            tabName = "About",
            title = "About",
            icon = f7Icon("info_circle"),
            active = TRUE
          ),
          f7PanelItem(
            tabName = "Venice",
            title = "Venice",
            icon = f7Icon("map_pin")
          ),
          f7PanelItem(
            tabName = "Beach",
            title = "Beach",
            icon = f7Icon("sun_max_fill")
          ),
          f7PanelItem(
            tabName = "Owners",
            title = "Owners",
            icon = f7Icon("person_2_fill")
          ),
          f7PanelItem(
            tabName = "Resources",
            title = "Resources",
            icon = f7Icon("hammer_fill")
          )
        )
      )
    ),
    ### navbar ----
    navbar = f7Navbar(
      title = "St. Andrews Park",
      hairline = TRUE,
      leftPanel = TRUE
    ),
    ### begin tabs ----
    f7Tabs(
      id = "tabs",
      animated = TRUE,
      #### about ----
      f7Tab(
        title = "About",
        tabName = "About",
        icon = f7Icon("info_circle"),
        active = TRUE,
        f7Card(
          title = "About",
          divider = "TRUE",
          tags$img(src = "images/st_andrews.jpg", width = "100%"),
          "St. Andrews Park is located in Venice, Florida. The condominiums are a mix of single-family homes, villas (2 and 4 units) and multi-unit buildings (8 units). There are 388 separate properties within 14 subdivisions. St. Andrews Park is one of many communities in the Plantation Golf and Country Club. It is should not be confused with the adjacent community St. Andrews East.",
          footer = tagList(
            f7Link("More Info", href = "http://www.cpmi.us/standrews-plantation/outside_home.asp")
          )
        )
      ),
      #### 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",
        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",
        tabName = "Owners",
        icon = f7Icon("person_2_fill"),
        f7Card(
          title = "Owners:",
          divider = TRUE,
          raised = TRUE,
          f7List(
            inset = TRUE,
            dividers = TRUE,
            strong = TRUE,
            outline = FALSE,
            f7Text(
              inputId = "name",
              label = "Last Name:",
              placeholder = "\"Patel\""
            ),
            f7Text(
              inputId = "location",
              label = "Address:",
              placeholder = "\"123 Chalmers\""
            ),
            f7Select(
              inputId = "sub_name",
              label = "Select Subdivision:",
              choices = c("All", sort(sbdvn$sub_name))
            ),
            tags$br(),
            f7Button(
              inputId = "filterButton",
              label = "Find Owners",
              icon = "",
              color = "blue"
            )
          )
        ),
        f7Card(
          title = "Map:",
          divider = TRUE,
          leafletOutput("map")
        ),
        f7Card(
          title = "Table:",
          divider = TRUE,
          DTOutput("table")
        )
      ),
      #### services ----
      f7Tab(
        title = "Resources",
        tabName = "Resources",
        icon = f7Icon("hammer_fill"),
        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----
    ),
    ### begin scripts ----
    tags$script(
      HTML(
        "
          $(document).on('click', '#pdfLink', function(event) {
            event.preventDefault(); // Prevent the default link behavior
            window.open($(this).attr('href'), '_blank'); // Open in a new tab
          });
          "
      )
    )
    ### end scripts ----
  )
)
# end ui ----


# define server ----
server <- function(input, output) {
  # update tabs depending on side panel
  observeEvent(input$menu, {
    updateF7Tabs(id = "tabs",
                 selected = input$menu)
  })
  
  filteredSbdvn <- reactive({
    if (is.null(input$sub_name) || input$sub_name == "All") {
      return(sbdvn$max_sub_id)
    } else {
      return(
        sbdvn %>% 
        filter(sub_name == input$sub_name) %>% 
        pull(max_sub_id)
        )
    }
  })

  filteredOwners <- reactiveVal(owners)
 
  observeEvent(input$filterButton, {
    filtered_owners <-
      owners %>% 
        filter(subdivision %in% filteredSbdvn()) %>% 
        filter(
          grepl(input$name, owner_1, ignore.case = TRUE) |
          grepl(input$name, owner_2, ignore.case = TRUE)
        ) %>%
        filter(grepl(input$location, location, ignore.case = TRUE))
      
    filteredOwners(filtered_owners)
  })
  
  mean_lat <- reactive({
    filteredOwners() %>%
      st_coordinates() %>%
      .[, "Y"] %>% 
      mean()
  })
  
  mean_lng <- reactive({
    filteredOwners() %>%
      st_coordinates() %>%
      .[, "X"] %>% 
      mean()
  })
  
  
  output$map <- renderLeaflet({
    if (!is.null(filteredOwners()) && nrow(filteredOwners()) > 0) {
      leaflet() %>% 
        addProviderTiles("CartoDB.Voyager") %>% 
        addPolygons(
          data = sbdvn,
          color = "red",
          weight = 2,
          opacity = 0.5,
          fillOpacity = 0.2,
          label = ~sub_name,
          group = "Subdivisions"
        ) %>% 
        addMarkers(
          data = filteredOwners(),
          #color = ~ifelse(homestead == 1, "green", "red"),
          popup = popupTable(
            filteredOwners(), 
            row.numbers = FALSE,
            feature.id = FALSE,
            zcol = c(
              "label",
              "owner_1",
              "owner_2"
            )
          ),
          group = "Owners"
        ) %>% 
        addLayersControl(
          overlayGroups = c("Subdivisions", "Owners"), 
          options = layersControlOptions(collapsed = FALSE)
        ) %>% 
        setView(lng = mean_lng(), lat = mean_lat(), zoom = 16)
    } else {
      leaflet() %>% 
        addProviderTiles("CartoDB.Voyager") %>% 
        addPolygons(
          data = sbdvn,
          color = "red",
          weight = 2,
          opacity = 0.5,
          fillOpacity = 0.2,
          label = ~sub_name,
          group = "Subdivisions"
        ) %>% 
        setView(lng = -82.362253, lat = 27.076199, zoom = 16)
    }
    
    
  })
  
  output$table <- renderDT({
    my_table <- 
      filteredOwners() %>% 
      st_drop_geometry() %>% 
      select(label, owner_1, owner_2, homestead)
    datatable(my_table,
              colnames = c("Address", "Owner 1", "Owner 2", "Homestead"),
              rownames = FALSE,
              options = list(
                pageLength = 10,
                scrollX = TRUE,
                searching = FALSE,
                lengthMenu = c(5, 10, 25, 50),
                dom = 'tpi'
              )
              )
  })
# 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() %>% 
      addProviderTiles("CartoDB.Voyager") %>% 
      setView(lng = -82.4603, lat = 27.0999, zoom = 12) %>% 
      addMarkers(
        data = beaches,
        lat = ~lat,
        lng = ~lng,
        popup = ~beach_name
      )
  })
}
# end server ----

# Run the app
shinyApp(ui, server)