## Not run:
# x <- ft_get('10.7554/eLife.04300', from='elife')
# ft_browse(x)
# ft_browse(x, browse=FALSE)
#
# ft_browse( ft_get('10.3389/fphar.2014.00109', from="entrez") )
#
# # open to publisher site
# ft_browse(x, "publisher")
#
# # Browse sections
# x <- ft_get(c('10.1371/journal.pone.0086169',"10.1371/journal.pone.0110535"), from='plos')
# ft_browse_sections(x, "abstract")
# ft_browse_sections(x, "categories")
#
# opts <- list(fq=list('doc_type:full',"article_type:\"research article\""))
# out <- ft_search(query='ecology', from='plos', plosopts = opts)$plos$data$id %>%
# ft_get(from = "plos")
# out %>% ft_browse_sections("abstract")
# out %>% ft_browse_sections("body")
# ## End(Not run)
Run the code above in your browser using DataLab