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