medRxiv_pdf_demo.R

# SET-UP ------------------------------------------------------------------
# Install and load the package

devtools::install_github("mcguinlu/medrxivr")
library(medrxivr)


# PART 1 ------------------------------------------------------------------
# Read in the data you downloaded from the web-app

data_from_app <- read.csv("../../Downloads/search_results (10).csv") 


# PART 2 ------------------------------------------------------------------
# To illustrate, this is how you perform the same search usign the package

topic1 <- c("dementia", "vascular")   # Combined with OR
topic2 <- c("lipid")

query <- list(topic1, topic2)         # Combined with AND

data_from_pacakge <- mx_search(query)


# PART 3 ------------------------------------------------------------------
# Download PDFS for your records

mx_download(data_from_app,
            "medrxivr-test/",
            create = TRUE)