Commit 5f32e1f4 authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added hydropower generation summary

parent b69747f7
...@@ -3,13 +3,13 @@ shinyServer(function(input, output, session) { ...@@ -3,13 +3,13 @@ shinyServer(function(input, output, session) {
zones = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'LMP') %>% zones = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'LMP') %>%
names() %>% str_sort() names() %>% str_sort()
selectInput('zone', 'Choose the zone:', selectInput('zone', 'Choose the zone:',
choices = zones[-1]) choices = zones)
}) })
output$hpp_selection <- renderUI({ output$hpp_selection <- renderUI({
zones = hrgen = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'Hydro power generation') %>% zones = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'Hydro power generation') %>%
names() %>% str_sort() names() %>% str_sort()
selectInput('hpp', 'Choose the hydro-power plant:', selectInput('hpp', 'Choose the hydro-power plant:',
choices = hrgen[-1]) choices = zones)
}) })
output$main_plot <- renderPlot({ output$main_plot <- renderPlot({
......
...@@ -30,6 +30,7 @@ shinyUI( fluidPage( ...@@ -30,6 +30,7 @@ shinyUI( fluidPage(
'heatmap water value' = 'hwv', 'heatmap water value' = 'hwv',
'reservoir levels (all)' = 'res_all', 'reservoir levels (all)' = 'res_all',
'reservoir levels (single)' = 'res_single', 'reservoir levels (single)' = 'res_single',
'hydro-power generation' = 'hydro_gen',
'generation mix' = 'gen_mix', 'generation mix' = 'gen_mix',
'generation stacked' = 'gen_stacked', 'generation stacked' = 'gen_stacked',
'generation yearly' = 'gen_year', 'generation yearly' = 'gen_year',
......
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