# might fail if API is not available
cts_convert('XEFQLINVKFYRCS-UHFFFAOYSA-N', 'inchikey', 'Chemical Name')
### multiple inputs
comp <- c('XEFQLINVKFYRCS-UHFFFAOYSA-N', 'BSYNRYMUTXBXSQ-UHFFFAOYSA-N')
sapply(comp, function(x) cts_convert(x, 'inchikey', 'Chemical Name', first = TRUE))
Run the code above in your browser using DataLab