## Not run:
# SetAPIKey ("ENTER YOUR PRIVATE API KEY HERE.")
# params <- list (congno="112", indus="F10", cmte="HARM")
# tryCatch(
# congCmteIndusData <- GetCongCmteIndusData (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