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