Adjust layout and redeploy.

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

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