diff --git a/app.R b/app.R index 9909b1b..9356ccc 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( @@ -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" ) @@ -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"), @@ -122,7 +130,7 @@ ui <- dashboardPage( ), radioButtons( "temp_unit", - "Temperature unit:", + "Select Temperature metric:", choices = c("Celsius", "Fahrenheit"), selected = "Celsius") ), column( @@ -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, {