# NOT RUN {
id <- get_etoxid('Triclosan', match = 'best')
etox_basic(id$etoxid)
# Retrieve data for multiple inputs
ids <- c("20179", "9051")
out <- etox_basic(ids)
out
# extract cas numbers
sapply(out, function(y) y$cas)
# }
Run the code above in your browser using DataCamp Workspace