Commit 24253873 authored by Matteo DE FELICE's avatar Matteo DE FELICE

Changed the path of the Excel files

parent 478c5cdb
......@@ -201,21 +201,21 @@ shinyServer(function(input, output, session) {
# Reservoir levels single ------------------------------------------------------------------
else if (input$plot_type == 'res_single') {
inflows = readxl::read_xlsx(paste0('xls/', input$result_xls), sheet = 'Inflows') %>%
inflows = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'Inflows') %>%
select(contains(paste0(input$zone, '_HPHS')),
contains(paste0(input$zone, '_HDAM'))) %>%
mutate(date = seq(as_datetime('2016-01-01'), by = 'day', length.out = n())) %>%
mutate(day_of_the_year = yday(date)) %>%
gather(area, inflow, -date, -day_of_the_year)
spillage = readxl::read_xlsx(paste0('xls/', input$result_xls), sheet = 'Spillage') %>%
spillage = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'Spillage') %>%
select(contains(paste0(input$zone, '_HPHS')),
contains(paste0(input$zone, '_HDAM'))) %>%
mutate(date = seq(as_datetime('2016-01-01'), by = 'day', length.out = n())) %>%
mutate(day_of_the_year = yday(date)) %>%
gather(area, spillage, -date, -day_of_the_year)
pumping = readxl::read_xlsx(paste0('xls/', input$result_xls), sheet = 'Pumping') %>%
pumping = readxl::read_xlsx(paste0('', input$result_xls), sheet = 'Pumping') %>%
select(contains(paste0(input$zone, '_HPHS')),
contains(paste0(input$zone, '_HDAM'))) %>%
mutate(date = seq(as_datetime('2016-01-01'), by = 'day', length.out = n())) %>%
......
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