## Not run:
# # Fails because no TOKEN is included
# token <- '<YOUR-SECURITY-TOKEN>'
# # convert CAS to CSID
# csid <- get_csid("Triclosan", token = token)
# cs_extcompinfo(csid, token)
#
# csids <- get_csid(c('Aspirin', 'Triclosan'), token = token)
# cs_compinfo(csids, token = token)
# ## End(Not run)
Run the code above in your browser using DataLab