Question

我想要R：

转到THIS页面。
选择＆＃34; Bibtex＆＃34;格式，＆＃34;引文和摘要＆＃34; for＆＃34; Export type＆＃34;。
按＆＃34;提交＆＃34;并将引文文件下载到指定的文件夹。

有可能吗？我怎么能用R做到这一点？（我不了解JavaScript，我无法理解与此问题相关的早期主题。1，2，3）

最终，我想下载期刊的所有bibtex（以及可能的Endnote）引文（例如THIS期刊）。

Answer 1

我认为rcrossref https://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。包中还有其他功能可以搜索文章并通过出版商等获取DOI。

希望有所帮助

Answer 2

您可以使用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. ...

使用R导出期刊文章的引用

2 个答案: