testing

source("rain.R")

## Loading required package: lubridate

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

source("discharge.R")

inputPanel(
  sliderInput(
    "date_range", "range", min = discharge$time[1], max = discharge$time[T],
    value = c(discharge$time[1], discharge$time[T])
  )
)

range