sendCache: function to do ...
In jhorner/PopCon: A popularity contest for R and its packages

Description Usage Details Value Note Author(s) References See Also Examples

~~ A concise (1-5 lines) description of what the function does. ~~

1	sendCache()

~~ If necessary, more details than the description above ~~

~Describe the value returned If it is a LIST, use

`comp1`	Description of 'comp1'
`comp2`	Description of 'comp2'

...

~~further notes~~

~Make other sections like Warning with Warning .... ~

~~who you are~~

~put references to the literature/web site here ~

~~objects to See Also as help, ~~~

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(){
	deactivateSymUDB()
	x <- serialize(.symCache,NULL)

	httpPost <- charToRaw(
'POST /rapache/hornerj HTTP/1.1\r
Host: data.vanderbilt.edu\r
User-Agent: symbolon/0.1 (data.vanderbilt.edu/symbolon)\r
Connection: close\r
Content-Type: multipart/form-data; boundary=--928340934\r
Content-Length: ')

	mime <- charToRaw(
'----928340934\r
Content-Disposition: form-data; name="symbolonFile"; filename="symbolon.Rdata"\r
Content-Type: application/octet-stream\r
\r
')
	mime <- append(mime,x)
	mime <- append(mime,charToRaw('\r\n----928340934--\r\n'))

	httpPost <- append(httpPost,charToRaw(as.character(length(mime))))
	httpPost <- append(httpPost,charToRaw('\r\n\r\n'))
	httpPost <- append(httpPost,mime)

	con <- socketConnection('data.vanderbilt.edu',80,blocking=TRUE,open='a+b')
	writeBin(httpPost,con)
	clearCache()
	ret <- readLines(con)
	close(con)
	activateSymUDB()
	ret
  }