# St. Andrews Shiny App - Main entry point
# Modularized version with separate UI and server components

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

# Load configuration
source("./R/config.R")

# Load UI and server components
source("./R/app_ui.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
ui <- create_ui()
server <- create_server

# Run the app
shinyApp(ui = ui, server = server)