Rob Wiederstein
eb18ba4115
All checks were successful
Deploy stAndrews / deploy (push) Successful in 41s
29 lines
563 B
R
29 lines
563 B
R
# 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)
|