# Fails because no TOKEN is included
token <- '<YOUR-SECURITY-TOKEN>'
get_csid("Triclosan", token = token)
# [1] "5363"
# attr(,"class")
# [1] "csid"
get_csid("3380-34-5", token = token)
###
# multiple inputs
sapply(c('Aspirin', 'Triclosan'), get_csid, token = token)
Run the code above in your browser using DataLab