## Not run:
# # Fails because no TOKEN is included
# token <- '<YOUR-SECURITY-TOKEN>'
# get_csid("Triclosan", token = token)[[1]]
# # [1] "5363"
# get_csid(c("Triclosan", "50-00-0"), token = token)
# ## End(Not run)
Run the code above in your browser using DataLab