Sergio Oller 2017-06-02

mendeleyr provides a subset of the Mendeley API through R.

Checkout the code and browse it at http://github.com/zeehio/mendeleyr.

• To install the latest development version:

  devtools::install_github("zeehio/mendeleyr")
  

Mendeley's API is based on oAuth2. This means that mendeleyr should be registered as an application in [http://dev.mendeley.com/myapps.html] and receive a client_id and a client_secret. As mendeleyr is open source, the package can't provide a secret so it is required that the mendeleyr user registers its own app.

This is a one-time step, and it is very easy. mdl_conf_new() provides detailed instructions on how to do that:

library(mendeleyr)
mdl_conf_new()

## Error in mdl_conf_new(): mdl_conf_save requires the client_id and client_secret.
## You can obtain these registering an app at Mendeley at http://dev.mendeley.com/myapps.html.
## Please use http://localhost:1410/ as 'Redirect URL'
## Then you can use:
## mdl_conf_save(client_id = "given-by-mendeley", client_secret = "given-by-mendeley")

Once you have registered you app, you will be able to save the mendeley parameters to a file, by default it is saved as .mendeley_conf.json in the current directory.

mdl_conf_save(client_id = "given-by-mendeley", client_secret = "given-by-mendeley",
              where = ".mendeley_conf.json")

Mendeley knows now that you are using mendeleyr. The final step is to grant mendeleyr access to your account. The first time you run this, you will need to login to Mendeley through the browser. Afterwards a token will be saved so you don't have to login every time.

token <- mdl_token(".mendeley_conf.json")

all_my_folders <- mdl_folders(token)
mdl_to_bibtex(token, folder_name = "my_folder", bibfile = "my_folder.bib")

If the folder belongs to a group:

mdl_to_bibtex(token, folder_name = "shared_folder", group_name = "my_group",
              bibfile = "shared_folder.bib")

my_docs <- mdl_documents(token, folder_name = "my_folder")

my_docs <- mdl_documents(token, folder_name = "my_folder")
all_files <- mdl_files(token, document_id = my_docs$id[1])
mdl_download_file(token, all_files[1,])