unpublished_preprints.R

query <- list("[Mm]endelian","[Rr]andomi[sz]ation","[Bb]ias")

# medrxiv ----
# Get local copy of the databases
mx_data <- medrxivr::mx_snapshot() # medrxiv

# Limit to unpublished studies
mx_data_unpublished <- dplyr::filter(mx_data, is.na(published))

# Run search
mx_results <- medrxivr::mx_search(mx_data_unpublished, query)

medrxivr::mx_export(mx_results,file="medrxiv_unpublished.bib")


# biorxiv ----
bx_data <- medrxivr::mx_api_content(server = "biorxiv")

# Limit to unpublished studies
bx_data_unpublished <- dplyr::filter(bx_data, is.na(published))

# Run search
bx_results <- medrxivr::bx_search(bx_data_unpublished, query)

medrxivr::mx_export(bx_results,file="biorxiv_unpublished.bib")