diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index ea05cf15129dc2e9b272360492d2f58f89463041..41fee9d561cc50b6dfb79f62432f7b071975e6b1 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) +