# NOT RUN {
pp_query('50-00-0')
out <- pp_query(c('50-00-0', '79622-59-6', 'xxxxx'))
out
# extract lop-P
sapply(out, function(y){
if (length(y) == 1 && is.na(y))
return(NA)
y$prop$value[y$prop$variable == 'Log P (octanol-water)']
})
# }
Run the code above in your browser using DataLab