## Not run:
# id <- get_etoxid('Triclosan', match = 'best')
# etox_basic(id$etoxid)
#
# # Retrieve CAS for multiple inputs
# ids <- c("20179", "9051")
# out <- etox_basic(ids)
# out
#
# # extract ec numbers
# sapply(out, function(y) y$ec)
# ## End(Not run)
Run the code above in your browser using DataLab