R new_handle function does not work properly?

Question

I need to run following code

library(curl)
user= "GEAS"
password= "878282193100310"
content = paste("username=", user, "&am