# NOT RUN {
# might fail if API is not available
# return all hits
pan_query('2,4-dichlorophenol')[[1]][c(1, 2, 5, 74)]
# return only first hit
pan_query('2,4-dichlorophenol', match = 'first')[[1]][c(1, 2, 5, 74)]
# return only best hit
pan_query('2,4-dichlorophenol', match = 'best')[[1]][c(1, 2, 5, 74)]
out <- pan_query(c('Triclosan', 'Aspirin'), 'best')
out
# extract Hydrolysis Half-life (Avg, Days)
sapply(out, function(y) y$`Hydrolysis Half-life (Avg, Days)`)
# }
Run the code above in your browser using DataLab