R/PingAPI.R

Defines functions PingAPI

Documented in PingAPI

PingAPI <- function(MyKey=NULL) {
  web <- "http://eol.org/api/ping.xml"
  if(!is.null(MyKey))
    web <- paste(web, "?key=", MyKey, sep="")
  a <- getURL(web)  
  xmlToList(xmlRoot(xmlParse(a, getDTD=FALSE)))$message
}

Try the Reol package in your browser

Any scripts or data that you put into this service are public.

Reol documentation built on May 30, 2017, 12:30 a.m.