From e1c3abc11d0ddea24df2caa4efe0b417000d5bca Mon Sep 17 00:00:00 2001
From: Thomas Rushby <t.w.rushby@soton.ac.uk>
Date: Tue, 15 Sep 2020 11:56:24 +0100
Subject: [PATCH] Tidy up intensity data table.
---
howTo/shiny/Intensity_02.R | 2 ++
1 file changed, 2 insertions(+)
diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index 2acb79d..1261959 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -28,6 +28,8 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
# create time midpoint for plotting
intensityDF$periodMid <- intensityDF$periodStart + lubridate::minutes(15)
+ intensityDF <- intensityDF[-1,] # remove 1st row
+
if(longDF){
# prepare data - tidyr
intensityDF <- tidyr::gather(intensityDF, key = "measure", value = "value", c(forecast,actual))
--
GitLab