feQuery <-
function(op, baseurl = "http://www.fueleconomy.gov/ws/rest/", ...) {
url <- paste(baseurl, op, sep = "")
response <- tryCatch(xmlParse(url), error = function(e) {
return(NULL)
})
return(response)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.