Skip to content
Snippets Groups Projects
Commit a70c776c authored by Tom Rushby's avatar Tom Rushby
Browse files

Move author info to top of page.

parent 9b4b755d
No related branches found
No related tags found
No related merge requests found
...@@ -41,6 +41,10 @@ ui <- fluidPage( ...@@ -41,6 +41,10 @@ ui <- fluidPage(
# App title ---- # App title ----
titlePanel("GB Grid Electricity Carbon Intensity Forecast"), 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 ---- # Sidebar layout with input and output definitions ----
sidebarLayout( sidebarLayout(
...@@ -72,10 +76,6 @@ ui <- fluidPage( ...@@ -72,10 +76,6 @@ ui <- fluidPage(
tags$br(), 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.", 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"),"."), "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).", 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)."),
tags$hr(), tags$hr(),
...@@ -107,7 +107,7 @@ server <- function(input, output) { ...@@ -107,7 +107,7 @@ server <- function(input, output) {
output$intensityPlot <- renderPlot({ output$intensityPlot <- renderPlot({
plotCaption = paste0("Data from: https://api.carbonintensity.org.uk", 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)) + ggplot(getIntensity(dateGet = input$dateToGet, longDF = TRUE), aes(periodMid,value, fill = measure)) +
geom_col(position = "identity", alpha = 0.6) + geom_col(position = "identity", alpha = 0.6) +
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment