Commit 704f4bc0 authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added normalised level

parent 51417ad7
......@@ -233,12 +233,16 @@ shinyServer(function(input, output, session) {
gather(area, generation, -date, -day_of_the_year)
res_normalised = res_zone %>% group_by(area) %>% mutate(max_level = max(level)) %>% ungroup() %>% mutate(norm_level = level / max_level) %>% select(date, day_of_the_year, area, norm_level)
merged = inner_join(
inner_join(
inner_join(
inner_join(
inner_join(inflows, res_zone), gen_zone),
spillage),
pumping) %>%
pumping),
res_normalised) %>%
gather(variable, output, -date, -day_of_the_year, -area)
entsoe_data = entsoe_storage %>%
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment