# \donttest{
tryCatch(
{
## Fetch the gold prices from the past week
response <- get_goldprice_from_interval(Sys.Date() - 7, Sys.Date())
## Preview response content
response$content
},
error = function(e) message(e)
)
# }
Run the code above in your browser using DataLab