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

Tidy up intensity data table.

parent fcf9c4b0
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
howTo/shiny/Intensity_02.R
+ 2
− 0
View file @ e1c3abc1
...@@ -28,6 +28,8 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) { ...@@ -28,6 +28,8 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
# create time midpoint for plotting # create time midpoint for plotting
intensityDF$periodMid <- intensityDF$periodStart + lubridate::minutes(15) intensityDF$periodMid <- intensityDF$periodStart + lubridate::minutes(15)
intensityDF <- intensityDF[-1,] # remove 1st row
if(longDF){ if(longDF){
# prepare data - tidyr # prepare data - tidyr
intensityDF <- tidyr::gather(intensityDF, key = "measure", value = "value", c(forecast,actual)) intensityDF <- tidyr::gather(intensityDF, key = "measure", value = "value", c(forecast,actual))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment