initial dashboard setup

Author: peterregier

synoptic_dashboard/server.R

@@ -8,6 +8,9 @@
 #
 
 library(shiny)
+library(ggplot2)
+
+theme_set(theme_bw())
 
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
@@ -16,10 +19,15 @@ shinyServer(function(input, output) {
 
         # generate bins based on input$bins from ui.R
         x    <- faithful[, 2]
-        bins <- seq(min(x), max(x), length.out = input$bins + 1)
+        bins <- seq(min(x), max(x), length.out = 6)
 
+        # This lets you stop the code and see what's in the environment
+        #browser()
+        
         # draw the histogram with the specified number of bins
-        hist(x, breaks = bins, col = 'darkgray', border = 'white')
+        
+        ggplot(faithful, aes(eruptions)) + 
+          geom_histogram()
 
     })
 

synoptic_dashboard/ui.R

@@ -8,26 +8,26 @@
 #
 
 library(shiny)
+library(shinydashboard)
 
 # Define UI for application that draws a histogram
-shinyUI(fluidPage(
-
-    # Application title
-    titlePanel("Old Faithful Geyser Data"),
-
-    # Sidebar with a slider input for number of bins
-    sidebarLayout(
-        sidebarPanel(
-            sliderInput("bins",
-                        "Number of bins:",
-                        min = 1,
-                        max = 50,
-                        value = 30)
-        ),
-
-        # Show a plot of the generated distribution
-        mainPanel(
-            plotOutput("distPlot")
-        )
-    )
-))
+ui <- dashboardPage(
+  
+  dashboardHeader(title = "COMPASS Synoptic"),
+  dashboardSidebar(
+    sidebarMenu(
+      menuItem("Dashboard", tabName = "dashboard", icon = icon("compass")),
+      menuItem("Sapflow", tabName = "sapflow", icon = icon("tree")),
+      menuItem("TEROS", tabName = "teros", icon = icon("temperature-high")),
+      menuItem("AquaTroll", tabName = "troll", icon = icon("water")),
+      menuItem("Battery", tabName = "battery", icon = icon("car-battery")),
+      menuItem("Alerts", tabName = "alerts", icon = icon("comment-dots"))
+      )
+    ),
+  dashboardBody(
+    tabItem(tabName = "sapflow", 
+            plotOutput("distPlot"))
+  ), 
+  skin = "purple"
+  
+  )