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