---
title: "An introduction to the rnrfa package"
author: "Claudia Vitolo and Ilaria Prosdocimi"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{An introduction to the rnrfa package}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
  %\VignetteDepends{DT,leaflet,dygraphs,ggplot2}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, eval = TRUE)
```

## Introduction

The [UK National River Flow Archive](https://nrfa.ceh.ac.uk/) serves daily streamflow data, spatial rainfall averages and information regarding elevation, geology, land cover and FEH related catchment descriptors.

There is currently an API under development that in future should provide access to the following services: metadata catalogue, catalogue filters based on a geographical bounding-box, catalogue filters based on metadata entries, gauged daily data for about 400 stations available in WaterML2 format, the OGC standard used to describe hydrological time series.  

The information returned by the first three services is in JSON format, while the last one is an XML variant.

The `rnrfa` package aims to achieve a simpler and more efficient access to data by providing wrapper functions to send HTTP requests and interpret XML/JSON responses.

### Dependencies

**R package dependencies** can be installed running the following code:

```{r,eval=FALSE}
# these should normally already be installed with rnrfa
install.packages(c("curl", "ggmap", "ggplot2", "httr", "jsonlite",
                   "lubridate", "parallel", "sf", "tibble", "zoo"))
```

This demo makes also use of external libraries. To install and load them run the following commands:

```{r,eval=FALSE}
packs <- c("devtools", "DT", "leaflet", "dygraphs")
install.packages(packs, repos = "https://cloud.r-project.org")
lapply(packs, require, character.only = TRUE)
```

### Installation

The stable version of the **rnrfa** package is available from CRAN:

```{r,eval=FALSE,message=FALSE}
install.packages("rnrfa")
```

Or you can install the development version from Github with [remotes](https://remotes.r-lib.org/):

```{r,eval=FALSE}
remotes::install_github("ilapros/rnrfa")
```

Now, load the rnrfa package:

```{r,eval=FALSE,echo=TRUE}
library(rnrfa)
```

```{r,eval=TRUE,echo=FALSE}
suppressPackageStartupMessages(library(rnrfa))
```


## Functions

### List of station identification numbers

The function `station_ids()` returns a vector of all NRFA station identifiers. 

```{r}
# Retrieve station identifiers:
allIDs <- station_ids()
head(allIDs)
```

### List of monitoring stations
The function `catalogue()` retrieves information for monitoring stations. The function, used with no inputs, requests the full list of gauging stations with associated metadata. The output is a tibble containing one record for each station and as many columns as the number of metadata entries available. 

```{r}
# Retrieve information for all the stations in the catalogue:
allStations <- catalogue()
head(allStations)
```

The columns are briefly described below (see also [API documentation](https://nrfaapps.ceh.ac.uk/nrfa/nrfa-api.html#ws-station-info)):

* `id` The station identifier.
* `name` The station name.
* `catchment-area` The catchment area (in km2).
* `grid-reference` The station grid reference. For JSON output the grid-reference is represented as an object with the following properties:
  - `ngr` (String) The grid reference in string form (i.e. "SS9360201602").
  - `easting` (Number) The grid reference easting (in metres).
  - `northing` (Number) The grid reference northing (in metres).
* `lat-long` The station latitude/longitude. For JSON output the lat-long is represented as an object with the following properties:
  - `string` (String) The textual representation of the lat/long (i.e. "50°48'15.0265"N 3°30'40.7121"W").
  - `latitude` (Number) The latitude (expressed in decimal degrees).
  - `longitude` (Number) The longitude (expressed in decimal degrees).
* `river` The name of the river.
* `location` The name of the location on the river.
* `station-level` The altitude of the station, in metres, above Ordnance Datum or, in Northern Ireland, Malin Head.
* `easting` The grid reference easting.
* `northing` The grid reference northing.
* `station-information` Basic station information: id, name, catchment-area, grid-reference, lat-long, river, location, station-level, measuring-authority-id, measuring-authority-station-id, hydrometric-area, opened, closed, station-type, bankfull-flow, structurefull-flow, sensitivity.
category.
* Information about the main station categories: nrfa-mean-flow, nrfa-peak-flow, feh-pooling, feh-qmed, feh-neither, nhmp, benchmark, live-data.
catchment-information
* Basic catchment information: factors-affecting-runoff.
gdf-statistics
* Gauged daily flow statistics: gdf-start-date, gdf-end-date, gdf-mean-flow, gdf-min-flow, gdf-first-date-of-min, gdf-last-date-of-min, gdf-max-flow, gdf-first-date-of-max, gdf-last-date-of-max, gdf-q95-flow, gdf-q70-flow, gdf-q50-flow, gdf-q10-flow, gdf-q05-flow, gdf-base-flow-index, gdf-day-count, gdf-flow-count.
* peak-flow-statistics
* Basic peak-flow statistics: peak-flow-start-date, peak-flow-end-date, qmed.
elevation
* Catchment elevation pecentile data: minimum-altitude, 10-percentile-altitude, 50-percentile-altitude, 90-percentile-altitude, maximum-altitude.
catchment-rainfall
* Catchment rainfall standard period data: saar-1941-1970, saar-1961-1990.
lcm2000
* Land cover map data (2000): lcm2000-woodland, lcm2000-arable-horticultural, lcm2000-grassland, lcm2000-mountain-heath-bog, lcm2000-urban.
lcm2007
* Land cover map data (2007): lcm2007-woodland, lcm2007-arable-horticultural, lcm2007-grassland, lcm2007-mountain-heath-bog, lcm2007-urban.
geology
* Catchment geology data: high-perm-bedrock, moderate-perm-bedrock, low-perm-bedrock, mixed-perm-bedrock, high-perm-superficial, low-perm-superficial, mixed-perm-superficial.
feh-descriptors
* FEH catchment descriptors: propwet, bfihost, farl, dpsbar.
urban-extent
* Urban extent data: urbext-1990, urbext-2000.
spatial-location
* The grid reference and lat/long as individual fields: easting, northing, latitude, longitude.

### Station filtering

The same function `catalogue()` can be used to filter stations based on a bounding box or any of the metadata entries. 

```{r}
# Define a bounding box:
bbox <- list(lon_min = -3.82, lon_max = -3.63, lat_min = 52.43, lat_max = 52.52)
# Filter stations based on bounding box
x <- catalogue(bbox)
dim(x); range(x$latitude); range(x$longitude)

# Filter based on minimum recording years
x <- catalogue(min_rec = 100)
dim(x); range(lubridate::year(x$`gdf-end-date`) - lubridate::year(x$`gdf-start-date`))

# Filter stations measuring a certain river
x <- catalogue(column_name="river", column_value="Wye")
dim(x); unique(x$river)

# Filter based on bounding box & metadata strings
x <- catalogue(bbox, column_name="river", column_value="Wye")
dim(x); unique(x$river)

# Filter stations based on threshold
x <- catalogue(bbox, column_name="catchment-area", column_value=">1")
dim(x); range(x$`catchment-area`)

# Filter based on minimum recording years
x <- catalogue(bbox, column_name = "catchment-area",
          column_value = ">1",
          min_rec = 30)
dim(x)

# Filter stations based on identification number
x <- catalogue(column_name="id", column_value="== c(3001,3002,3003)")
x$id
```

```{r}
# Other combined filtering
someStations <- catalogue(bbox,
                          column_name = "id",
                          column_value = "==c(54022,54090,54091,54092,54097)",
                          min_rec = 35)
```

### Conversions

The `rnrfa` package allows convenient conversion between UK grid reference and more standard coordinate systems. The function `osg_parse()`, for example, converts the string to easting and northing in the BNG coordinate system (EPSG code: 27700), as in the example below:

```{r}
# Where is the first catchment located?
someStations$`grid-reference`$ngr[1]

# Convert OS Grid reference to BNG
osg_parse("SN853872")
```

The same function can also convert from BNG to latitude and longitude in the WSGS84 coordinate system (EPSG code: 4326) as in the example below.

```{r}
# Convert BNG to WSGS84
osg_parse(grid_refs = "SN853872", coord_system = "WGS84")
```

`osg_parse()` also works with multiple references:

```{r}
osg_parse(grid_refs = someStations$`grid-reference`$ngr)
```

### Get time series data

The first column of the table `someStations` contains the id number. This can be used to retrieve time series data and convert waterml2 files to time series object (of class zoo). 

The National River Flow Archive mainly serves two types of time series data: gauged daily flow and catchment mean rainfall.

These time series can be obtained using the functions `gdf()` and `cmr()`, respectively. Both functions accept three inputs: 

  * `id`, the station identification numbers (single string or character vector).

  * `metadata`, a logical variable (FALSE by default). If metadata is TRUE means that the result for a single station is a list with two elements: data (the time series) and meta (metadata).

  * `cl`, This is a cluster object, created by the parallel package. This is set to NULL by default, which sends sequential calls to the server.

Other time series data are made available via the API and can be retrieved using `get_ts()` - for details on the time series which can be retrieved see `?get_ts`. 

Here is how to retrieve mean rainfall (monthly) data for _Shin at Lairg (id = 3001)_ catchment.

```{r, fig.width=7,fig.asp=0.6}
# Fetch only time series data from the waterml2 service
info <- cmr(id = "3001")
plot(info)
```

One can also ask to retrieve some metadata with useful information: 

```{r, fig.width=7,fig.asp=0.6}
# Fetch time series data and metadata from the waterml2 service
info <- cmr(id = "3001", metadata = TRUE)
info$meta
plot(info$data, 
     main = paste("Monthly rainfall data for the", 
                info$meta$station.name,"catchment"), 
     xlab = "", ylab=info$meta$data.type.units)
```

Here is how to retrieve (daily) flow data for _Shin at Lairg (id = 3001)_ catchment.

```{r, fig.width=7,fig.asp=0.6}
# Fetch only time series data
# info <- gdf(id = "3001")
# plot(info)

# Fetch time series data and metadata from the waterml2 service
info <- gdf(id = "3001", metadata = TRUE)
plot(info$data, 
     main = paste0("Daily flow data for the ", info$meta$station.name,
                   " catchment (",info$meta$data.type.units, ")"), 
     ylab = info$meta$data.type.name)
```

### Multiple sites

By default, the functions `gdf()` and `cmr()` functions can be used to fetch time series data from multiple site in a sequential mode (using 1 core):

```{r, fig.width=7}
# Search data/metadata
s <- cmr(c(3002,3003), metadata = TRUE)

# s is a list of 2 objects (one object for each site)
plot(s[[1]]$data, 
     main = paste(s[[1]]$meta$station.name, "and", s[[2]]$meta$station.name), 
     sub = "Catchment monthly rainfall", ylab = s[[1]]$meta$data.type.units)
lines(s[[2]]$data, col = "green")

s <- get_ts(c(3002, 3003), type = "gdf", metadata = TRUE)
plot(s[[1]]$data, 
     main = paste(s[[1]]$meta$station.name, "and", s[[2]]$meta$station.name), 
     sub = "Gauged daily flow", ylab=s[[1]]$meta$data.type.units)
lines(s[[2]]$data, col="pink2")
```

## Interoperability

Upgrade your data.frame to a data.table:

```{r}
library(DT)
datatable(catalogue(column_name = "river", column_value = "Thames", all = FALSE))
```

Create interactive maps using leaflet:

```{r}
library(leaflet)

leaflet(data = someStations) %>% addTiles() %>%
  addMarkers(~longitude, ~latitude, popup = ~as.character(paste(id,name)))
```

Interactive plots using dygraphs:

```{r}
library(dygraphs)
dygraph(info$data) %>% dyRangeSelector()
```

Sequential vs Concurrent requests: a simple benchmark test

```{r,eval=FALSE}
library(parallel)
# Use detectCores() to find out many cores are available on your machine
cl <- makeCluster(getOption("cl.cores", detectCores()))

# Filter all the stations within the above bounding box
someStations <- catalogue(bbox)

# Get flow data with a sequential approach
system.time(s1 <- gdf(someStations$id, cl = NULL))

# Get flow data with a concurrent approach (using `parLapply()`)
system.time(s2 <- gdf(id = someStations$id, cl = cl))

stopCluster(cl)
```

The measured flows are expected to increase with the catchment area. Let's show this simple regression on a plot:

```{r}
# Linear model
library(ggplot2)
ggplot(allStations[!is.na(allStations$qmed),], 
       aes(x = as.numeric(`catchment-area`), y = qmed)) +
  geom_point() +
  stat_smooth(formula = y ~ x, method = "lm", col = "red") +
  xlab(expression(paste("Catchment area [Km^2]", sep=""))) +
  ylab(expression(paste("Mean flow [m^3/s]", sep="")))
```
