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