Get PLOS supplementary material with R

plos_supp.R

# http://journals.plos.org/plosone/article?id=10.1371/journal.pone.0081457

library(fulltext)
library(alm)

query <- ft_search(query = "Estimating Summer Nutrient Concentrations in
          Northeastern Lakes from SPARROW Load Predictions and Modeled
          Lake Depth and Volume", from = "plos")
doi <- ft_links(query)$plos$ids
alm_ids(doi = doi, info = "detail")$data$info$title

dt <- read.csv(ft_get_si(doi, 1))