Update Wiley TDM in R recipe

Author: MoenMi

src/r/wiley-tdm.md

@@ -1,5 +1,5 @@
 ---
-title: "wiley-tdm"
+title: "Wiley Text and Data Mining (TDM) in R"
 output: 
   html_document:
     keep_md: true
@@ -9,26 +9,32 @@ output:
 
 by Michael T. Moen
 
-This tutorial is designed to support academic research. Please consult your institution’s library or legal office regarding its Text and Data Mining license agreement with Wiley.
+The Wiley Text and Data Mining (TDM) API allows users to retrieve the full-text articles of subscribed Wiley content in PDF form. TDM use is for non-commercial scholarly research, see terms and restrictions in below links.
 
-### Documentation
-- [Wiley Text and Data Mining](https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining)
+*This tutorial content is intended to help facilitate academic research. Please check your institution for their Text and Data Mining or related License Agreement with Wiley.*
 
-### Terms of Use
-- [Wiley Text and Data Mining Agreement](https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining#accordionHeader-3)
+Please see the following resources for more information on API usage:
 
-### Data Reuse
-- [Service Name] Data Reuse *(link to be provided by the service)*
+- Documentation
+    - <a href="https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining" target="_blank">Wiley Text and Data Mining</a>
+- Terms
+    - <a href="https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining#accordionHeader-3" target="_blank">Wiley Text and Data Mining Agreement</a>
+- Data Reuse
+    - <a href="https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining#accordionHeader-3" target="_blank">Wiley TDM Data Reuse</a> (see sections 4 and 5 of Text and Data Mining Agreement)
 
-*These recipe examples were tested on February 12, 2025.*
+*These recipe examples were tested on October 27, 2025.*
 
 **_NOTE:_** The Wiley TDM API limits requests to a maximum of 3 requests per second.
 
 ## Setup
 
 ### Import Libraries
 
-This tutorial uses the following libraries:
+The following packages need to be installed into your environment to run the code examples in this tutorial. These packages can be installed with `install.packages()`.
+
+- <a href="https://cran.r-project.org/web/packages/httr/index.html" target="_blank">httr: Tools for Working with URLs and HTTP</a>
+
+We load the libraries used in this tutorial below:
 
 
 ``` r
@@ -37,14 +43,27 @@ library(httr)
 
 ### Text and Data Mining Token
 
-A token is required to access the Wiley TDM API. Sign up can be found [here](https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining#accordionHeader-2). Import your token below:
+A token is required for text and data mining with Wiley. You can sign up for one on the <a href="https://onlinelibrary.wiley.com/library-info/resources/text-and-datamining#accordionHeader-2" target="_blank">Wiley Text and Data Mining page</a>.
+
+We keep our token in a `.Renviron` file that is stored in the working directory and use `Sys.getenv()` to access it. The `.Renviron` should have an entry like the one below.
+
+```text
+WILEY_TDM_TOKEN="PUT_YOUR_TOKEN_HERE"
+```
+
+Below, we can test to whether the key was successfully imported.
 
 
 ``` r
-wiley_token <- Sys.getenv("wiley_token")
+if (nzchar(Sys.getenv("WILEY_TDM_TOKEN"))) {
+  print("API key successfully loaded.")
+} else {
+  warning("API key not found or is empty.")
+}
+```
 
-# The token will be sent as a header in the API calls
-headers <- add_headers("Wiley-TDM-Client-Token" = wiley_token)
+```
+## [1] "API key successfully loaded."
 ```
 
 ## 1. Retrieve full-text of an article
@@ -59,14 +78,13 @@ In the first example, we download the full-text of the article with the DOI "10.
 doi <- "10.1002/net.22207"
 url <- paste0("https://api.wiley.com/onlinelibrary/tdm/v1/articles/", doi)
 
-response <- GET(url, headers)
+response <- GET(url, add_headers("Wiley-TDM-Client-Token" = Sys.getenv("WILEY_TDM_TOKEN")))
 
 if (status_code(response) == 200) {
   # Download if status code indicates success
   filename <- paste0(gsub("/", "_", doi), ".pdf")
   writeBin(content(response, "raw"), filename)
   cat(paste0(filename, " downloaded successfully\n"))
-  
 } else {
   # Print status code if unsuccessful
   cat(paste0("Failed to download PDF. Status code: ", status_code(response), "\n"))
@@ -96,14 +114,13 @@ dois <- c(
 # Loop through DOIs and download each article
 for (doi in dois) {
   url <- paste0("https://api.wiley.com/onlinelibrary/tdm/v1/articles/", doi)
-  response <- GET(url, headers)
+  response <- GET(url, add_headers("Wiley-TDM-Client-Token" = Sys.getenv("WILEY_TDM_TOKEN")))
 
   if (status_code(response) == 200) {
     # Download if status code indicates success
     filename <- paste0(gsub("/", "_", doi), ".pdf")
     writeBin(content(response, "raw"), filename)
     cat(paste0(filename, " downloaded successfully\n"))
-    
   } else {
     # Print status code if unsuccessful
     cat(paste0("Failed to download PDF. Status code: ", status_code(response), "\n"))