#  output$parameter_lengthPeriod <- renderUI({

#    switch(input$application,
#           "Builds aggregated timeseries based on prices" = numericInput(inputId = "lengthPeriod",
#                                                                         label = "Please input the length period",
#                                                                         value = 1,
#                                                                         min = 0,
#                                                                         max = 1000,
#                                                                         step = 1,
#                                                                         width = NULL))
#  })

#  output$parameter_unitPeriod <- renderUI({

#    switch(input$application,
#           "Builds aggregated timeseries based on prices" = selectInput(inputId = 'parameter_unitPeriod',
#                                                                        label = "Please select a unit period",
#                                                                        choices = list("minutes","hours","seconds", "milliseconds", "microseconds")))
#  })