# \donttest{
tryCatch(
{
## Retrieve the current exchange rate for euros
response <- get_current_exchangerate("A", "EUR")
## Retrieve the content
response$content
},
error = function(e) message(e)
)
# }
Run the code above in your browser using DataLab