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