The product is a shiny app with a simple UI component where the user can select between a choice of currency pairs to compare against the default currencies.

When the user selects a new currency pair to compare, the server responds and the chart is updated, as a result.

The product can be found at the following url https://fraserstark.shinyapps.io/FXChart/

The product uses the tidyquant & plotly libraries to present a visualisation of live FX rates, and allows the user to select various currency pairs to compare against.

When the user selects a new currency pair, the server calls tq_get to request the price data for that pair, and the resulting data.frame is used to update the plotly chart on the UI.

tidyquant can be called like follows

library(dplyr)
library(tidyquant)

fx <- c("EUR/GBP","USD/GBP") %>% tq_get(get = "exchange.rates")

head(fx, 3)

## # A tibble: 3 x 3
##   symbol  date       exchange.rate
##   <chr>   <date>             <dbl>
## 1 EUR/GBP 2019-11-15         0.856
## 2 EUR/GBP 2019-11-16         0.857
## 3 EUR/GBP 2019-11-17         0.857