Update title and graph caption

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) +