# \donttest{
if (interactive()) {
# Convert a single PMID to PMC ID
result <- pmid_to_pmc("12345678")
# Convert multiple PMIDs
pmids <- c("12345678", "23456789", "34567890")
result <- pmid_to_pmc(pmids, batch_size = 10, sleep = 1)
}
# }
Run the code above in your browser using DataLab