id <- get_etoxid('Triclosan', mult = 'best')
out <- etox_targets(id)
out[ , c('Substance', 'CAS_NO', 'Country_or_Region', 'Designation',
'Value_Target_LR', 'Unit')]
# Retrieve MAC-EQA for Germany for multiple inputs
ids <- c("20179", "9051")
sapply(ids, function(y) {
res <- etox_targets(y)
if (length(res) == 1) {
out <- res
} else {
out <- res[res$Country_or_Region == 'DEU' & res$Designation == 'MAC-EQS', c('Value_Target_LR')]
}
return(out)
}
)
Run the code above in your browser using DataLab