From 06c054a795c687489fd6769b179035d43c6504d2 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Tue, 15 Sep 2020 15:22:12 +0100
Subject: [PATCH] Adjust layout and redeploy.

---
 howTo/shiny/App/app.R                                 | 11 ++++++-----
 .../rsconnect/shinyapps.io/rushby/gridforecast.dcf    |  4 ++--
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/howTo/shiny/App/app.R b/howTo/shiny/App/app.R
index 1261959..114a3e6 100644
--- a/howTo/shiny/App/app.R
+++ b/howTo/shiny/App/app.R
@@ -42,11 +42,12 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
 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 "), 
+  titlePanel("GB Grid Electricity Carbon Intensity Forecast Visualisation"),
+  tags$p("This demo 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("The app uses the latest data available through the ", tags$a(href = "https://carbonintensity.org.uk/","National Grid ESO's Carbon Intensity API"), "to plot the chart shown below."),
   
   # Sidebar layout with input and output definitions ----
   sidebarLayout(
@@ -76,10 +77,10 @@ ui <- fluidPage(
     mainPanel(
       fluidRow(
         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("The chart below shows the forecast and actual carbon intensity of electricity supplied by National Grid over the 24 hours selected."),
         tags$p("Predicted carbon intensity of electricity is shown in blue (forecast).",
-               "The carbon intensity of electricity supplied is shown in red (actual)."),
+               "The carbon intensity of electricity supplied is shown in red (actual).",
+               "For future times and dates, only the forecast values will be shown in the chart."),
         tags$hr(),
         
         # Output: Text ----
diff --git a/howTo/shiny/App/rsconnect/shinyapps.io/rushby/gridforecast.dcf b/howTo/shiny/App/rsconnect/shinyapps.io/rushby/gridforecast.dcf
index 0a6af79..d41b295 100644
--- a/howTo/shiny/App/rsconnect/shinyapps.io/rushby/gridforecast.dcf
+++ b/howTo/shiny/App/rsconnect/shinyapps.io/rushby/gridforecast.dcf
@@ -5,6 +5,6 @@ account: rushby
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 2811298
-bundleId: 3630929
+bundleId: 3631529
 url: https://rushby.shinyapps.io/gridforecast/
-when: 1600167776.24198
+when: 1600178821.19956
-- 
GitLab