if (FALSE) {
url_list <- list(
archivesic="http://archivesic.ccsd.cnrs.fr/oai/oai.php",
datacite = "http://oai.datacite.org/oai",
# No OAI-PMH here
google = "http://google.com"
)
sapply(url_list, oai_available)
}
Run the code above in your browser using DataLab