# might fail if API is not available
cir_query('Triclosan', 'cas')
cir_query("3380-34-5", 'cas')
cir_query("3380-34-5", 'cas', resolver = 'cas_number')
cir_query("3380-34-5", 'smiles')
cir_query('Triclosan', 'mw')
cir_query('Triclosan', 'aromatic')
cir_query('Triclosan', 'xlogp2')
# query multiple representations
reps <- c('smiles', 'cas', 'stdinchikey', 'mw', 'formula', 'xlogp2')
sapply(reps, function(x) cir_query('Triclosan', x, first = TRUE))
# multiple inputs
comp <- c('Triclosan', 'Aspirin')
sapply(comp, function(x) cir_query(x, 'cas', first = TRUE))Run the code above in your browser using DataLab