# NOT RUN {
aw_query('Fluazinam', from = 'name')
out <- aw_query(c('Fluazinam', 'Diclofop'), from = 'name')
out
# extract subactivity from object
sapply(out, function(y) y$subactivity[1])
# use CAS-numbers
aw_query("79622-59-6", from = 'cas')
# }
Run the code above in your browser using DataLab