# Fails because no TOKEN is included
token <- '<YOUR-SECURITY-TOKEN>'
# convert CAS to CSID
csid <- get_csid("Triclosan", token = token)
cs_compinfo(csid, token)
###
# multiple inputs
csids <- sapply(c('Aspirin', 'Triclosan'), get_csid, token = token)
# fails:
# cs_compinfo(csids, token = token)
(ll <- lapply(csids, cs_compinfo, token = token))
# return a list, convert to matrix:
do.call(rbind, ll)
Run the code above in your browser using DataLab