1
2
3
4
5
6
7
8
9
10
TODO: code to load a package (in this case RCurl)

opts = curlOptions(header = FALSE, userpwd = "username:password", netrc = FALSE)

> update <- function(status){
method <- "http://twitter.com/statuses/update.xml?status="
encoded_status <- URLencode(status)
request <- paste(method,encoded_status,sep = "")
postForm(request,.opts = opts)
}