app.R

# This is the main app page, which will run and read in all the other pages
# and modules, and render the dashboard

# 02/14/2025 New version that uses bslib instead of shinydashboard for creating
# the layout and theme (https://rstudio.github.io/bslib/index.html)

# Note: not necessary to load packages here: this all happens in global.R

source("global.R")
source("functions.R")
source("modules/main_page.R")
source("modules/waterquality.R")
source("modules/algae.R")
source("modules/shellfish.R")
source("modules/explore.R")
source("modules/levels.R")

dash_theme <- bs_theme(version = 5,
                       bootswatch = "sandstone") |> 
  bs_add_variables(
    "navbar-bg" = "$primary",
    "navbar-color" = "$light",
    "navbar-dark-bg" = "$primary",
    #"progress-bar-bg" = "$secondary",
    .where = "declarations"
  ) |>
  bs_add_rules("
    .navbar { color: var(--bs-light) !important; }
    .navbar .navbar-brand, .navbar .nav-link { color: var(--bs-light) !important; }")

ui <- page_navbar(
  id = "tabs",  # assign an id to the navbar
  theme = dash_theme,
  title = "Guana Estuary Data Dashboard",
  nav_panel(title = "Home", value = "main_page",
            mainPageUI(id = "main_page")
  ),
  nav_panel(title = "Explore", value = "explore",
            icon = icon("binoculars", lib = "font-awesome"),
            explPageUI(id = "explore")
  ),
  nav_panel(title = "Water Quality", value = "waterquality",
            icon = icon("flask-vial", lib = "font-awesome"),
            WINPageUI(id = "waterquality")
  ),
  nav_panel(title = "Harmful Algal Blooms", value = "algae",
            icon = icon("microscope", lib = "font-awesome"),
            HABPageUI(id = "algae")
  ),
  nav_panel(title = "Water Levels", value = "levels",
            icon = icon("water", lib = "font-awesome"),
            levelsPageUI(id = "levels")
  ),
  nav_panel(title = "Fish and Shellfish", value = "shellfish",
            icon = icon("fish", lib = "font-awesome"),
            SHELLPageUI(id = "shellfish")
  )
)

server <- function(input, output, session) {
  moduleServer(module = mainPageServer, id = "main_page", session = session)
  levelsPageServer("levels", parentSession = session)
  explPageServer("explore", parentSession = session)
  HABPageServer("algae", parentSession = session)
  WINPageServer("waterquality", parentSession = session)
  SHELLPageServer("shellfish", parentSession = session)
}

shinyApp(ui, server)