ui.R

library(shiny)
library(shinyjs)
library(shinyBS)

sbp <- sidebarPanel(id="sidePanel",
  
  selectInput("deviceId", "Device:", structure(db_devices$DeviceId, names=db_devices$DeviceName)),
  selectInput("classId", "Class:", db_class_ids, selected = "person"),
  selectInput("average", "Average:", structure(c("hour", "day", "week", "month", "year"), names=c("Hourly", "Daily", "Weekly", "Monthly", "Yearly")), selected = "day"),
  dateRangeInput("dates", 
                 "Date range",
                 start = "2019-04-01", 
                 end = as.character(Sys.Date()+1)),
  width = 3
)

navbarPage("Tennis Court Presentation", id="nav",

  tabPanel("Interactive map",
           fluidPage(
             useShinyjs(),
             fluidRow(leafletOutput("map")),
             fluidRow(sidebarLayout(sidebarPanel = sbp,
                           mainPanel = mainPanel(id="MainPanel",
                                                 fluidRow(
                                                   splitLayout(cellWidths = c("65%", "35%"),
                                                               plotOutput("tsplot", height="400"),
                                                               plotOutput("pieplot"))
                                                   )))),
             tags$div(id="cite", 'Data compiled for ',tags$em('Tulsa Tennis Court IoT Project.'), ' Last Update: ', max(db_data$DateTimeT)),
             tags$head(tags$style(HTML(".shiny-plot-output { overflow: hidden; }")))
           )
      )
)