inst/shiny/ui.R

In hubert-thieriot/crea_r_package: Query And Plot Air Quality And Weather Data from CREA Database

library(shiny)
library(shinydashboard)

library(shinyBS)
library(leaflet)
library(plotly)

ui <- navbarPage(
    title=div(img(src="crea_logo.svg",
                  height=44)),

    windowTitle="CREA - Air Quality Dashboard",
    theme = "theme.css",
    id = "nav-page",

    source(file.path("ui", "tab_measurements.R"),  local = TRUE)$value,

    # source(file.path("ui", "tab_exceedances.R"),  local = TRUE)$value,

    source(file.path("ui", "tab_trajectories.R"),  local = TRUE)$value,
    tags$head(includeHTML(("www/gtm-head.html"))),
    tags$body(includeHTML(("www/gtm-body.html")))

    # source(file.path("ui", "tab_download.R"),  local = TRUE)$value

)