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