Экспортная цитата из журнальной статьи с помощью R

Question

Я хочу R к:

1. Go THIS страницы.
2. Выберите «Bibtex» в качестве формата «Цитирование и реферат» для «Тип экспорта».
3. Нажмите «Отправить» и загрузите файл цитаты в указанную папку.

Возможно ли это? Как я могу это сделать с помощью R? (Я не знаю, JavaScript, и я не мог понять ранние темы гораздо связанные с этим вопросом. 1, 2, 3)

В конце концов, я хочу, чтобы загрузить все BibTeX (и, возможно, концевую сноску) цитаты из журнала (для пример THIS журнал).

Answer 1

Вы можете подделать отправку формы с помощью пакета httr. Для этого запроса вы могли бы сделать

values <- list(
    doi = "10.1002%2Fasi.21577", 
    fileFormat = "BIBTEX", 
    hasAbstract = "CITATION_AND_ABSTRACT" 
) 

library(httr) 
url <- "http://onlinelibrary.wiley.com/documentcitationdownloadformsubmit" 
rr <- POST(url=url, body=values, encode="form") 
content(rr, "text") 
# [1] "@article {ASI:ASI21577,\nauthor = {Callahan, Ewa S. ... 

Answer 2

Я думаю rcrossrefhttps://github.com/ropensci/rcrossref#citation-search может помочь вам в этом, например,

install.packages("rcrossref") 
library("rcrossref")  

cat(cr_cn(dois = "10.1126/science.169.3946.635", format = "bibtex")) 
#> @article{Frank_1970, 
#> doi = {10.1126/science.169.3946.635}, 
#> url = {http://dx.doi.org/10.1126/science.169.3946.635}, 
#> year = 1970, 
#> month = {aug}, 
#> publisher = {American Association for the Advancement of Science ({AAAS})}, 
#> volume = {169}, 
#> number = {3946}, 
#> pages = {635--641}, 
#> author = {H. S. Frank}, 
#> title = {The Structure of Ordinary Water: New data and interpretations are yielding new insights  into this fascinating substance}, 
#> journal = {Science} 
#> } 

С этим просто нужно DOI-х. Есть и другие функции в пакете для поиска статей и получить Dois издателем и т.д.

надежда, что помогает