`, ``), capturing the text, and joining it into a single string. This can help with quick text-based analyses.
```r
# Example article from SpringerOpen Brain Informatics
# This article is under CC-BY-4.0 license https://creativecommons.org/licenses/by/4.0/
# https://doi.org/10.1186/s40708-025-00250-5
# Harnessing the synergy of statistics and \
# deep learning for BCI competition 4 dataset 4: a novel approach
# Gauttam Jangir, Nisheeth Joshi & Gaurav Purohit
doi <- '10.1186/s40708-025-00250-5'
xml_data <- NULL
tryCatch (
{
response <- request("https://api.springernature.com/openaccess/jats") |>
req_url_query(
q = sprintf('doi:"%s")', doi),
api_key = API_KEY
) |>
req_perform()
xml_data <- resp_body_string(response)
message(
sprintf(
"JATS XML successfully retrieved for DOI %s.",
doi
)
)
},
error = function(e) {
message (
sprintf (
"Error retrieving JATS XML for DOI %s: %s",
doi,
e$message
)
)
}
)
```
```text
JATS XML successfully retrieved for DOI 10.1186/s40708-025-00250-5.
```
```r
root = NULL
if (!is.null(xml_data))
{
tryCatch (
{
root <- read_xml(xml_data)
print("XML data successfully parsed.")
},
error = function(e) {
message (
sprintf (
"Error parsing XML data: %s",
e$message
)
)
}
)
} else {
print("No valid XML data to parse.")
}
```
```text
[1] "XML data successfully parsed."
```
```r
full_text <- ""
if (!is.null(root) && !inherits(root, "xml_missing"))
{
# Find the body element
body <- xml_find_first(root, ".//body")
if (!is.null(body) && !inherits(body, "xml_missing"))
{
# We'll store text in a list, then join them.
text_parts <- list()
# We can iterate over each top-level child in the body.
# Typically tags hold paragraphs, etc.
sections <- xml_children(body)
for (section in sections)
{
# For each subsection, gather all text.
sub_sections <- xml_children(section)
for (sub_section in sub_sections)
{
text_parts <- c(
text_parts,
xml_text(sub_section)
)
}
# Combine everything
full_text <- paste(text_parts, collapse = "\n")
full_text <- trimws(full_text)
}
} else {
print("No body content found in the XML.")
}
} else {
print("No valid XML data to parse.")
}
if (length(full_text) > 0 && full_text != "")
{
writeLines(
full_text,
"fulltext.txt"
)
print("Full text extracted and saved to 'fulltext.txt'.")
} else {
print("No full text content found in the XML.")
}
```
```text
[1] "Full text extracted and saved to 'fulltext.txt'."
```
```r
# Output a portion of the full text to the console
# Note: The capitalization of "THe" in the output originates from the
# publisher-provided XML source and is not introduced by this code.
cat(substr(full_text, 1, 395))
```
```text
Introduction
THe brain is the most active organ of the human body that takes input, processes them, and gives output. Fingers play an important role in human life that is why one of the active fields for rehabilitation is the Brain-Computer Interface (BCI) where fingers and EEG signals are studied together for the normal routine return of a physically challenged or locomotive disabled person.
```