Fix: hardcode subdivision choices to remove
All checks were successful
Deploy stAndrews / deploy (push) Successful in 40s
All checks were successful
Deploy stAndrews / deploy (push) Successful in 40s
runtime data dep in UI
This commit is contained in:
@@ -134,7 +134,11 @@ create_ui <- function() {
|
|||||||
f7Select(
|
f7Select(
|
||||||
inputId = "sub_name",
|
inputId = "sub_name",
|
||||||
label = "Select Subdivision:",
|
label = "Select Subdivision:",
|
||||||
choices = c("All", sort(sbdvn$sub_name))
|
choices = c("All", "FAIRWAY GLEN", "GARDENS 1", "GARDENS 2",
|
||||||
|
"GARDENS 3", "GARDENS 4", "PATIOS 1", "PATIOS 2",
|
||||||
|
"PATIOS 3", "STRATFORD GLENN", "TERRACE HOMES",
|
||||||
|
"TERRACE VILLAS", "VILLAS 1 ST", "VILLAS 2",
|
||||||
|
"WEST LAKE GARDENS")
|
||||||
),
|
),
|
||||||
tags$br(),
|
tags$br(),
|
||||||
f7Button(
|
f7Button(
|
||||||
|
|||||||
3
app.R
3
app.R
@@ -17,9 +17,6 @@ source("./R/config.R")
|
|||||||
source("./R/app_ui.R")
|
source("./R/app_ui.R")
|
||||||
source("./R/app_server.R")
|
source("./R/app_server.R")
|
||||||
|
|
||||||
# Load data needed at UI construction time
|
|
||||||
sbdvn <- sf::st_read(app_config$data_paths$plats)
|
|
||||||
|
|
||||||
# Create the app
|
# Create the app
|
||||||
ui <- create_ui()
|
ui <- create_ui()
|
||||||
server <- create_server
|
server <- create_server
|
||||||
|
|||||||
Reference in New Issue
Block a user