# 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")
# }
Run the code above in your browser using DataLab