From a70c776c1702b8f520977933aa5172163f0b4bb6 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Tue, 15 Sep 2020 11:29:49 +0100
Subject: [PATCH] Move author info to top of page.
---
howTo/shiny/Intensity_02.R | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index af31101..5e3d24d 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -41,6 +41,10 @@ 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 "),
+ 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 ----
sidebarLayout(
@@ -72,10 +76,6 @@ ui <- fluidPage(
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("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).",
"The carbon intensity of electricity supplied is shown in red (actual)."),
tags$hr(),
@@ -107,7 +107,7 @@ server <- function(input, output) {
output$intensityPlot <- renderPlot({
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)) +
geom_col(position = "identity", alpha = 0.6) +
--
GitLab