# 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)
# }
Run the code above in your browser using DataLab