Bug in signup function about plotly.r HOT 2 CLOSED

signup2<-function (username = NULL, email = NULL) 
{
    if (is.null(username)) 
        key <- getOption("plotlyUsername", stop("you need a user name for Plot.ly - See the signup function"))

    platform = "R"
    version = as.character(packageVersion("plotly"))
    url <- "https://plot.ly/apimkacct"
    options(RCurlOptions = list(sslversion = 3, cainfo = system.file("CurlSSL", 
        "cacert.pem", package = "RCurl")))
    respst <- postForm(url, platform = platform, version = version, 
        email = email, un = username)
    resp <- fromJSON(respst, simplify = FALSE)
    if (!is.null(resp$filename)) 
        pub$filename <- resp$filename
    if (!is.null(resp$error)) 
        cat(resp$err)
    if (!is.null(resp$warning)) 
        cat(resp$warning)
    if (!is.null(resp$message)) 
        cat(resp$message)
    return(resp)
}

signup2(username="Bob666", email="[email protected]")