Switch back to doi.org in GetBibEntryWithDOI; #90

Author: mwmclean

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: RefManageR
-Version: 1.3.4
+Version: 1.3.5
 Title: Straightforward 'BibTeX' and 'BibLaTeX' Bibliography Management
 Authors@R: person(c("Mathew", "W."), "McLean", role = c("aut", "cre"),
     email = "[email protected]",

R/GetBibEntryWithDOI.R

@@ -36,7 +36,7 @@ GetBibEntryWithDOI <- function(doi, temp.file=tempfile(fileext = '.bib'),
   on.exit(if (delete.file && file.exists(temp.file)) file.remove(temp.file))
   successes <- logical(length(doi))
   for (i in seq_along(doi)){
-    temp <- GET(modify_url('https://data.crossref.org/', path = doi[i]),
+    temp <- GET(modify_url('https://doi.org/', path = doi[i]),
                     config = list(followlocation = TRUE),
                       add_headers(Accept = "application/x-bibtex"))
     if (!http_error(temp)){