Rob Wiederstein
b6f67eefc8
All checks were successful
Deploy stAndrews / deploy (push) Successful in 7s
- update_listings.R: pulls 1-mile radius, clips to plat boundary - Listings tab: table with listed date, address, sqft, price, $/sqft - Weekly cron: Sunday 11:30pm (30 min after owners refresh) - httr2 added to renv.lock
539 lines
15 KiB
R
539 lines
15 KiB
R
# load libraries ----
|
|
library(shiny)
|
|
library(shinyMobile)
|
|
library(leaflet)
|
|
library(sf)
|
|
library(dplyr)
|
|
library(leafpop)
|
|
library(DT)
|
|
|
|
# load data ----
|
|
owners <- readRDS("./data/owners.rds")
|
|
listings <- readRDS("./data/listings.rds")
|
|
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 ----
|
|
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 = "Listings",
|
|
title = "Listings",
|
|
icon = f7Icon("tag_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,
|
|
footer = paste0("Last sale date: ", last_sale_date),
|
|
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")
|
|
),
|
|
f7Card(
|
|
title = "Download:",
|
|
divider = TRUE,
|
|
f7List(
|
|
inset = TRUE,
|
|
downloadButton("download_filtered", "Download Filtered"),
|
|
downloadButton("download_all", "Download All (388)")
|
|
)
|
|
)
|
|
),
|
|
#### listings ----
|
|
f7Tab(
|
|
title = "Listings",
|
|
tabName = "Listings",
|
|
icon = f7Icon("tag_fill"),
|
|
f7Card(
|
|
title = "Active Listings:",
|
|
divider = TRUE,
|
|
DTOutput("listings_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();
|
|
window.open($(this).attr('href'), '_blank');
|
|
});
|
|
$(document).on('click', '#download_filtered, #download_all', function(event) {
|
|
event.preventDefault();
|
|
window.open($(this).attr('href'), '_self');
|
|
});
|
|
"
|
|
)
|
|
)
|
|
### 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'
|
|
)
|
|
)
|
|
})
|
|
prep_mailing <- function(data) {
|
|
data |>
|
|
sf::st_drop_geometry() |>
|
|
dplyr::select(owner_1, owner_2, mailing_address_1, mailing_address_2,
|
|
mailing_city, mailing_state, mailing_zip_code) |>
|
|
dplyr::mutate(
|
|
owner_2 = ifelse(is.na(owner_2), "", owner_2),
|
|
mailing_address_2 = ifelse(is.na(mailing_address_2), "", mailing_address_2)
|
|
) |>
|
|
dplyr::rename(
|
|
address_1 = mailing_address_1,
|
|
address_2 = mailing_address_2,
|
|
city = mailing_city,
|
|
state = mailing_state,
|
|
zip = mailing_zip_code
|
|
)
|
|
}
|
|
|
|
output$download_filtered <- downloadHandler(
|
|
filename = "st_andrews_owners_filtered.csv",
|
|
content = function(file) {
|
|
write.csv(prep_mailing(filteredOwners()), file, row.names = FALSE)
|
|
}
|
|
)
|
|
|
|
output$download_all <- downloadHandler(
|
|
filename = "st_andrews_owners_all.csv",
|
|
content = function(file) {
|
|
write.csv(prep_mailing(owners), file, row.names = FALSE)
|
|
}
|
|
)
|
|
|
|
# listings table ----
|
|
output$listings_table <- renderDT({
|
|
datatable(
|
|
listings |>
|
|
select(listed_date, address, sqft, price, price_per_sqft) |>
|
|
mutate(
|
|
price = scales::dollar(price),
|
|
price_per_sqft = scales::dollar(price_per_sqft)
|
|
),
|
|
colnames = c("Listed", "Address", "Sq Ft", "Price", "$/Sq Ft"),
|
|
rownames = FALSE,
|
|
options = list(
|
|
pageLength = 25,
|
|
searching = FALSE,
|
|
dom = 't'
|
|
)
|
|
)
|
|
})
|
|
|
|
# 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)
|