## 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)']
# })
# ## End(Not run)
Run the code above in your browser using DataLab