curlOptions(header = FALSE,   userpwd = "username:password", netrc = FALSE)tweet <->function(status){  method <->"http://twitter.com/statuses/update.xml?status="  encoded_status <->URLencode(status)  request <->paste(method,encoded_status,sep = "")  postForm(request,.opts">