From 3baa9ffd52fbc6886d85464ccddae090a24588f9 Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Thu, 16 Mar 2023 16:41:46 -0700
Subject: [PATCH 1/3] rectified spacing issues

---
 app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app.R b/app.R
index 9909b1b..2949a38 100644
--- a/app.R
+++ b/app.R
@@ -21,7 +21,7 @@ ui <- dashboardPage(
   
   dashboardHeader(title = "Weather Dashboard"),
   
-  dashboardSidebar(
+  dashboardSidebar(tags$style(".left-side, .main-sidebar { width: 235px }"),
     sidebarMenu(
       id = "tabs",
       menuItem(

From 5839198e064806576aad3ef37dba1d556773280f Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Thu, 16 Mar 2023 17:09:28 -0700
Subject: [PATCH 2/3] Added reactive title for summary statistics

---
 app.R | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/app.R b/app.R
index 2949a38..806aa04 100644
--- a/app.R
+++ b/app.R
@@ -82,6 +82,14 @@ ui <- dashboardPage(
           column(
             width = 9,
             # Added a row for summary statistics
+            fluidRow(tags$head(
+              tags$link(rel = "stylesheet", href = "https://fonts.googleapis.com/css2?family=Avant+Garde&display=swap")
+            ),
+            column(width = 12,
+                   tags$h2(class = "text-center", style = "font-size: 20px; font-weight: bold; font-family: 'Avant Garde', sans-serif;",
+                           textOutput("summaryTitle")
+                   )
+            )),
             fluidRow(
               valueBoxOutput("avgBox"),
               valueBoxOutput("maxBox"),
@@ -145,6 +153,9 @@ ui <- dashboardPage(
 # Define server logic
 server <- function(input, output, session) {
   
+   output$summaryTitle <- renderText({
+     paste("Summary Statistics for", input$city, ",", input$state)
+  })
   
   # Update city and state input based on map clicks
   observeEvent(input$map_marker_click, {

From bf09fbfdd03f7d7e1bead97e8dc7eed81e27c5bd Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Thu, 16 Mar 2023 17:12:00 -0700
Subject: [PATCH 3/3] made labels consistent

---
 app.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app.R b/app.R
index 806aa04..9356ccc 100644
--- a/app.R
+++ b/app.R
@@ -74,7 +74,7 @@ ui <- dashboardPage(
             # Add radio button input for selecting temperature metric
             radioButtons(
               "temp_metric",
-              "Select temperature metric:",
+              "Select Temperature metric:",
               choices = c("Celsius", "Fareinheit"),
               selected = "Celsius"
             )
@@ -130,7 +130,7 @@ ui <- dashboardPage(
             ),
             radioButtons(
               "temp_unit", 
-              "Temperature unit:",
+              "Select Temperature metric:",
               choices = c("Celsius", "Fahrenheit"), selected = "Celsius")
           ),
           column(