From 84d22fd90a2a6b8997b15fde1b8355d191ec5668 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Tue, 15 Sep 2020 09:44:03 +0100
Subject: [PATCH] Update title and graph caption

---
 howTo/shiny/Intensity_02.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index ea05cf1..41fee9d 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -40,7 +40,7 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
 ui <- fluidPage(
   
   # App title ----
-  titlePanel("GB Carbon Intensity forecast"),
+  titlePanel("GB Grid Electricity Carbon Intensity Forecast"),
   
   # Sidebar layout with input and output definitions ----
   sidebarLayout(
@@ -90,7 +90,7 @@ server <- function(input, output) {
   output$intensityPlot <- renderPlot({
     
     plotCaption = paste0("Data from: https://api.carbonintensity.org.uk",
-                           "\nDate selected: ",input$dateToGet)
+                           "\nrushby.shinyapps.io/gridforecast")
     
     ggplot(getIntensity(dateGet = input$dateToGet, longDF = TRUE), aes(periodMid,value, fill = measure)) +
       geom_col(position = "identity", alpha = 0.6) +
-- 
GitLab