Silently test if OAI-PMH service is available under the URL provided.
oai_available(u, ...)
TRUE
or FALSE
if the service is available.
base URL to OAI-PMH service
other arguments passed to id()
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