Nothing
.get.pug.url <- function() {
return("http://pubchem.ncbi.nlm.nih.gov/pug/pug.cgi")
}
.load.pug.query <- function(query.filename) {
path <- system.file('pugxml', query.filename, package='rpubchem')
doc <- xmlParse(path)
return(doc)
}
.xml2pugq <- function(xml) {
s <- saveXML(xml)
s <- gsub('<\\?xml version="1\\.0"\\?>', '', s)
s <- gsub("\\n", "", s)
return(s)
}
.get.poll.xml <- function(reqid) {
d <- .load.pug.query("pug-poll.xml")
n <- getNodeSet(d, "//PCT-Request_reqid")[[1]]
xmlValue(n) <- reqid
return(d)
}
.get.assay.id.xml <- function(aid, id, type) {
if (type == 'cid')
d <- .load.pug.query("assay-cid.xml")
else if (type == 'sid')
d <- .load.pug.query("assay-sid.xml")
n <- getNodeSet(d, "//PCT-QueryAssayData_aids/PCT-QueryUids/PCT-QueryUids_ids/PCT-ID-List/PCT-ID-List_uids/PCT-ID-List_uids_E")[[1]]
xmlValue(n) <- aid
parent <- getNodeSet(d, "//PCT-QueryAssayData_scids/PCT-QueryUids/PCT-QueryUids_ids/PCT-ID-List/PCT-ID-List_uids")[[1]]
id <- unique(id)
sapply(id, function(x) {
n <- newXMLNode('PCT-ID-List_uids_E', x, parent=parent)
})
return(d)
}
.poll.pubchem <- function(reqid) {
root <- NA
pstring <- .xml2pugq(.get.poll.xml(reqid))
reqid <- NA
while(TRUE) {
h = basicTextGatherer()
curlPerform(url = 'http://pubchem.ncbi.nlm.nih.gov/pug/pug.cgi',
postfields = pstring,
writefunction = h$update)
## see if we got a waiting response
root <- xmlRoot(xmlTreeParse(h$value(), asText=TRUE, asTree=TRUE))
reqid <- xmlElementsByTagName(root, 'PCT-Waiting', recursive=TRUE)
if (length(reqid) != 0) next
break
}
return(root)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.