powered by
get_cid(query, first = FALSE, verbose = TRUE, ...)
# might fail if API is not available get_cid('Triclosan') # multiple inputs comp <- c('Triclosan', 'Aspirin') sapply(comp, function(x) get_cid(x)) sapply(comp, function(x) get_cid(x, first = TRUE))
Run the code above in your browser using DataLab