diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index af311010b1d15cb82c6eecf5fc157cabcfd3318e..5e3d24d5eca22d20ab3a1ad7ce5c20561fcc3024 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -41,6 +41,10 @@ ui <- fluidPage(
   
   # App title ----
   titlePanel("GB Grid Electricity Carbon Intensity Forecast"),
+  tags$p("This app was created by ", tags$a(href = "https://energy.soton.ac.uk/rushby/","Tom Rushby "), 
+         tags$a(href = "https://twitter.com/tom_rushby","(@tom_rushby)"),
+         "for the ",tags$a(href = "https://energy.soton.ac.uk/","Energy and Climate Change Division"), 
+         tags$a(href = "https://twitter.com/EnergySoton","(@EnergySoton)"),"at the University of Southampton."),
   
   # Sidebar layout with input and output definitions ----
   sidebarLayout(
@@ -72,10 +76,6 @@ ui <- fluidPage(
         tags$br(),
         tags$p("The chart below shows the forecast and actual carbon intensity of electricity supplied by National Grid over the 24 hours selected.",
                "The data illustrated by this app is retrieved from ", tags$a(href = "https://carbonintensity.org.uk/","National Grid ESO's Carbon Intensity API"),"."),
-        tags$p("This app was created by ", tags$a(href = "https://energy.soton.ac.uk/rushby/","Tom Rushby "), 
-               tags$a(href = "https://twitter.com/tom_rushby","(@tom_rushby)"),
-               "for the ",tags$a(href = "https://energy.soton.ac.uk/","Energy and Climate Change Division"), 
-               tags$a(href = "https://twitter.com/EnergySoton","(@EnergySoton)"),"at the University of Southampton."),
         tags$p("Predicted carbon intensity of electricity is shown in blue (forecast).",
                "The carbon intensity of electricity supplied is shown in red (actual)."),
         tags$hr(),
@@ -107,7 +107,7 @@ server <- function(input, output) {
   output$intensityPlot <- renderPlot({
     
     plotCaption = paste0("Data from: https://api.carbonintensity.org.uk",
-                           "\nrushby.shinyapps.io/gridforecast")
+                           "\nVisualisation: rushby.shinyapps.io/gridforecast")
     
     ggplot(getIntensity(dateGet = input$dateToGet, longDF = TRUE), aes(periodMid,value, fill = measure)) +
       geom_col(position = "identity", alpha = 0.6) +