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