if (FALSE) {
get_records("87832186-00ea-44dd-a6bf-c2896c4d09b4")
ids <- c("87832186-00ea-44dd-a6bf-c2896c4d09b4",
"d981c07d-bc43-40a2-be1f-e786e25106ac")
(res <- get_records(ids))
lapply(res, "[[", "header")
lapply(res, "[[", "metadata")
do.call(rbind, lapply(res, "[[", "header"))
do.call(rbind, lapply(res, "[[", "metadata"))
# Get raw text
get_records("d981c07d-bc43-40a2-be1f-e786e25106ac", as = "raw")
# from arxiv.org
get_records("oai:arXiv.org:0704.0001", url = "http://export.arxiv.org/oai2")
}
Run the code above in your browser using DataLab