listSubstanceOwners <- function(service=NA) {
if (missing(service)) stop("You must specify the API service to use.");
handle = new_handle()
handle_setheaders(handle, "User-Agent" = "r/renm")
handle_setheaders(handle, "Accept" = "application/json")
url = paste(service, "substanceowner/", sep="")
res <- curl::curl_fetch_memory(url, handle)
txt <- rawToChar(res$content)
data = fromJSON(txt)$facet
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.