SetAPIKey ("ENTER YOUR PRIVATE API KEY HERE.")
params <- list (cid="N00007360", cycle="2012")
tryCatch(
candContribData <- GetCandContribData (params),
error =
function (e) {
print (
paste (
"An exception was thrown -- details follow: ",
e,
sep=""
)
)
}
)
Run the code above in your browser using DataLab