params <- list (currency="USD")
tryCatch(
usd <- GetMarketData (params),
error =
function (e) {
print (
paste (
"An exception was thrown -- details follow: ",
e,
sep=""
)
)
}
)
Run the code above in your browser using DataLab