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