From 2182f92b27823e290a1930f51c1141ab5bf58dec Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Fri, 3 Mar 2023 00:57:46 -0800
Subject: [PATCH 1/3] spacing issues and units added

---
 app.R | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/app.R b/app.R
index aac9305..4cd1c70 100644
--- a/app.R
+++ b/app.R
@@ -36,7 +36,7 @@ ui <- dashboardPage(
     tabItem(tabName = "temp_precip_trends",
             fluidRow(
               column(
-                width = 4,
+                width = 3,
                 # Add slider input for selecting range of months
                 sliderInput(
                   "month_range",
@@ -61,8 +61,7 @@ ui <- dashboardPage(
                   selected = "Temperature"
                 )
               ),
-              column(width = 8,
-                     
+              column(width = 9,
                      # Added a row for summary statistics
                      fluidRow(
                        
@@ -81,7 +80,7 @@ ui <- dashboardPage(
     tabItem(tabName = "city_ranking",
             fluidRow(
               column(
-                width = 4,
+                width = 3,
                 selectInput("statename",
                             "Select a state:",
                             choices = unique(weather_bar$state)),
@@ -95,7 +94,7 @@ ui <- dashboardPage(
                             choices = unique(weather_bar$month))
               ),
               column(
-                width = 8,
+                width = 9,
                 plotOutput("temp_barplot"),
                 plotOutput("rain_barplot")
               )
@@ -306,7 +305,7 @@ server <- function(input, output, session) {
     }
     else{
       valueBox(
-        paste0(stat_data()$max_prec), "MAX", icon = icon("fa-regular fa-cloud-sun-rain"),
+        paste0(stat_data()$max_prec, " in."), "MAX", icon = icon("fa-regular fa-cloud-sun-rain"),
         color = "red")
     }
   })
@@ -321,7 +320,7 @@ server <- function(input, output, session) {
     }
     else{
       valueBox(
-        paste0(stat_data()$min_prec), "MIN", icon = icon("fa-regular fa-cloud-sun-rain"),
+        paste0(stat_data()$min_prec, " in."), "MIN", icon = icon("fa-regular fa-cloud-sun-rain"),
         color = "blue")
     }
   })
@@ -336,7 +335,7 @@ server <- function(input, output, session) {
     }
     else{
       valueBox(
-        paste0(stat_data()$avg_prec), "AVG", icon = icon("fa-regular fa-cloud-sun-rain"),
+        paste0(stat_data()$avg_prec, " in."), "AVG", icon = icon("fa-regular fa-cloud-sun-rain"),
         color = "green")
     }
   })

From 40ccfdbc5c1ed52eca997e825085c55741838606 Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Fri, 3 Mar 2023 01:04:26 -0800
Subject: [PATCH 2/3] removed data

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

diff --git a/app.R b/app.R
index 4cd1c70..f1949bb 100644
--- a/app.R
+++ b/app.R
@@ -56,7 +56,7 @@ ui <- dashboardPage(
                 # Add radio button input for selecting temperature or precipitation
                 radioButtons(
                   "data_type",
-                  "Select Data Type:",
+                  "Select Type:",
                   choices = c("Temperature", "Precipitation"),
                   selected = "Temperature"
                 )

From a73cf91454d1086c8c4fdeeb8e2563de8b454659 Mon Sep 17 00:00:00 2001
From: Sneha Sunil <snehasunilgm@gmail.com>
Date: Fri, 3 Mar 2023 01:06:15 -0800
Subject: [PATCH 3/3] Fixed typos

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

diff --git a/app.R b/app.R
index f1949bb..3827eff 100644
--- a/app.R
+++ b/app.R
@@ -17,7 +17,7 @@ weather_bar$month <- month.name[weather_bar$month]
 
 # Define UI
 ui <- dashboardPage(
-  dashboardHeader(title = "Citytemp Weather Dashboard"),
+  dashboardHeader(title = "Weather Dashboard"),
   
   dashboardSidebar(sidebarMenu(
     menuItem(