From 2af5946a755d1f36afdb926c1f279ad4c0e11401 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Mon, 5 Oct 2020 20:48:34 +0100
Subject: [PATCH] Update plot title

---
 howTo/openGeogAPI/app2.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/howTo/openGeogAPI/app2.R b/howTo/openGeogAPI/app2.R
index 11df7d8..b3e560c 100644
--- a/howTo/openGeogAPI/app2.R
+++ b/howTo/openGeogAPI/app2.R
@@ -232,7 +232,7 @@ server <- function(input, output, session) {
         auth_area  <-  input$authmap_shape_click$id
       }
       
-      plotTitle = paste0("Greenhouse gas emissions by sector for ",auth_area)
+      plotTitle = paste0("Greenhouse gas emissions by sector for ",auth_area, " - ",x_min, " to ",x_max)
       
       ggplot() +
         geom_col(ghg_subset(dt = pc_detail_plot, auth_area = auth_area), mapping = aes(x = Year, y = value, fill = variable), position = "stack") +
-- 
GitLab