###################################################
### chunk number 1: chunk1
###################################################
library("DAVIDQuery")
result = DAVIDQuery(type="UNIPROT_ACCESSION", annot=NULL, tool="geneReportFull")
names(result)



###################################################
### chunk number 2: chunk2
###################################################
Sys.sleep(10)  ### Assure that queries are not too close in time.
result = DAVIDQuery(type="UNIPROT_ACCESSION", annot=NULL, tool="geneReport")
result$firstURL
result$secondURL
result$downloadURL
result$DAVIDQueryResult



###################################################
### chunk number 3: chunk3
###################################################
Sys.sleep(10)  ### Assure that queries are not too close in time.
result = testGene2Gene(details=FALSE)
length(result)
names(result$DAVIDQueryResult[[1]])


###################################################
### chunk number 4: chunk4
###################################################
Sys.sleep(10)  ### Assure that queries are not too close in time.
affyToUniprot(details=FALSE)
Sys.sleep(10)  ### Assure that queries are not too close in time.
uniprotToAffy(details=FALSE)


###################################################
### chunk number 5: sessionInfo
###################################################
toLatex(sessionInfo())