From 84d22fd90a2a6b8997b15fde1b8355d191ec5668 Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Tue, 15 Sep 2020 09:44:03 +0100
Subject: [PATCH] Update title and graph caption
---
howTo/shiny/Intensity_02.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index ea05cf1..41fee9d 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -40,7 +40,7 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
ui <- fluidPage(
# App title ----
- titlePanel("GB Carbon Intensity forecast"),
+ titlePanel("GB Grid Electricity Carbon Intensity Forecast"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
@@ -90,7 +90,7 @@ server <- function(input, output) {
output$intensityPlot <- renderPlot({
plotCaption = paste0("Data from: https://api.carbonintensity.org.uk",
- "\nDate selected: ",input$dateToGet)
+ "\nrushby.shinyapps.io/gridforecast")
ggplot(getIntensity(dateGet = input$dateToGet, longDF = TRUE), aes(periodMid,value, fill = measure)) +
geom_col(position = "identity", alpha = 0.6) +
--
GitLab