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