{
  "id": 139068,
  "title": "rsconnect timeout",
  "url": "/competitions/deepfake-detection-challenge/discussion/139068",
  "author_name": "Dhruv Agrawal",
  "post_date": "2020-03-27T10:10:37.296000",
  "votes": -1,
  "comment_count": 0,
  "views": 0,
  "content": "<p>rsconnect::setAccountInfo(name='dhruva1',\n              token='23BAEB10154E18A6B1A3A074A7F7CFA5',\n              secret='&lt;&gt;')</p>\n\n<p>to connect to shiny app using R notebook is giving error:</p>\n\n<p>Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.shinyapps.io] Resolving timed out after 10000 milliseconds\nTraceback:</p>\n\n<ol>\n<li>rsconnect::setAccountInfo(name = \"dhruva1\", token = \"23BAEB10154E18A6B1A3A074A7F7CFA5\", \n.     secret = \"QyU512f3ieoOAQ8maXpO9092IIzclb4zOqMmVYVO\")</li>\n<li>lucid$currentUser()</li>\n<li>handleResponse(GET(service, authInfo, \"/users/current/\"))</li>\n<li>isContentType(response, \"application/json\")</li>\n<li>grepl(contentType, response$contentType, fixed = TRUE)</li>\n<li>GET(service, authInfo, \"/users/current/\")</li>\n<li>httpRequest(service, authInfo, \"GET\", path, query, headers, timeout)</li>\n<li>httpInvokeRequest(..., http = httpFunction())</li>\n<li>http(service$protocol, service$host, service$port, method, url, \n.     headers, timeout = timeout, certificate = certificate)</li>\n<li>system.time(gcFirst = FALSE, tryCatch({\n.     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n. }, error = function(e, ...) {\n.     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n.         \"transfer closed with outstanding read data remaining\")) \n.         return(NULL)\n.     else stop(e)\n. }))</li>\n<li>tryCatch({\n.     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n. }, error = function(e, ...) {\n.     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n.         \"transfer closed with outstanding read data remaining\")) \n.         return(NULL)\n.     else stop(e)\n. })</li>\n<li>tryCatchList(expr, classes, parentenv, handlers)</li>\n<li>tryCatchOne(expr, names, parentenv, handlers[[1L]])</li>\n<li>value[3L]</li>\n</ol>",
  "messages": [
    {
      "id": 788030,
      "postDate": "2020-03-27T10:10:37.297Z",
      "content": "<p>rsconnect::setAccountInfo(name='dhruva1',\n              token='23BAEB10154E18A6B1A3A074A7F7CFA5',\n              secret='&lt;&gt;')</p>\n\n<p>to connect to shiny app using R notebook is giving error:</p>\n\n<p>Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.shinyapps.io] Resolving timed out after 10000 milliseconds\nTraceback:</p>\n\n<ol>\n<li>rsconnect::setAccountInfo(name = \"dhruva1\", token = \"23BAEB10154E18A6B1A3A074A7F7CFA5\", \n.     secret = \"QyU512f3ieoOAQ8maXpO9092IIzclb4zOqMmVYVO\")</li>\n<li>lucid$currentUser()</li>\n<li>handleResponse(GET(service, authInfo, \"/users/current/\"))</li>\n<li>isContentType(response, \"application/json\")</li>\n<li>grepl(contentType, response$contentType, fixed = TRUE)</li>\n<li>GET(service, authInfo, \"/users/current/\")</li>\n<li>httpRequest(service, authInfo, \"GET\", path, query, headers, timeout)</li>\n<li>httpInvokeRequest(..., http = httpFunction())</li>\n<li>http(service$protocol, service$host, service$port, method, url, \n.     headers, timeout = timeout, certificate = certificate)</li>\n<li>system.time(gcFirst = FALSE, tryCatch({\n.     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n. }, error = function(e, ...) {\n.     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n.         \"transfer closed with outstanding read data remaining\")) \n.         return(NULL)\n.     else stop(e)\n. }))</li>\n<li>tryCatch({\n.     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n. }, error = function(e, ...) {\n.     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n.         \"transfer closed with outstanding read data remaining\")) \n.         return(NULL)\n.     else stop(e)\n. })</li>\n<li>tryCatchList(expr, classes, parentenv, handlers)</li>\n<li>tryCatchOne(expr, names, parentenv, handlers[[1L]])</li>\n<li>value[3L]</li>\n</ol>",
      "rawMarkdown": "rsconnect::setAccountInfo(name='dhruva1',\n\t\t\t  token='23BAEB10154E18A6B1A3A074A7F7CFA5',\n\t\t\t  secret='&lt;&gt;')\n\nto connect to shiny app using R notebook is giving error:\n\nError in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.shinyapps.io] Resolving timed out after 10000 milliseconds\nTraceback:\n\n1. rsconnect::setAccountInfo(name = \"dhruva1\", token = \"23BAEB10154E18A6B1A3A074A7F7CFA5\", \n .     secret = \"QyU512f3ieoOAQ8maXpO9092IIzclb4zOqMmVYVO\")\n2. lucid$currentUser()\n3. handleResponse(GET(service, authInfo, \"/users/current/\"))\n4. isContentType(response, \"application/json\")\n5. grepl(contentType, response$contentType, fixed = TRUE)\n6. GET(service, authInfo, \"/users/current/\")\n7. httpRequest(service, authInfo, \"GET\", path, query, headers, timeout)\n8. httpInvokeRequest(..., http = httpFunction())\n9. http(service$protocol, service$host, service$port, method, url, \n .     headers, timeout = timeout, certificate = certificate)\n10. system.time(gcFirst = FALSE, tryCatch({\n  .     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n  . }, error = function(e, ...) {\n  .     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n  .         \"transfer closed with outstanding read data remaining\")) \n  .         return(NULL)\n  .     else stop(e)\n  . }))\n11. tryCatch({\n  .     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n  . }, error = function(e, ...) {\n  .     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n  .         \"transfer closed with outstanding read data remaining\")) \n  .         return(NULL)\n  .     else stop(e)\n  . })\n12. tryCatchList(expr, classes, parentenv, handlers)\n13. tryCatchOne(expr, names, parentenv, handlers[[1L]])\n14. value[[3L]](cond)\n\n",
      "votes": -1
    }
  ],
  "comments": [],
  "raw_markdown_by_id": {
    "788030": "rsconnect::setAccountInfo(name='dhruva1',\n\t\t\t  token='23BAEB10154E18A6B1A3A074A7F7CFA5',\n\t\t\t  secret='&lt;&gt;')\n\nto connect to shiny app using R notebook is giving error:\n\nError in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.shinyapps.io] Resolving timed out after 10000 milliseconds\nTraceback:\n\n1. rsconnect::setAccountInfo(name = \"dhruva1\", token = \"23BAEB10154E18A6B1A3A074A7F7CFA5\", \n .     secret = \"QyU512f3ieoOAQ8maXpO9092IIzclb4zOqMmVYVO\")\n2. lucid$currentUser()\n3. handleResponse(GET(service, authInfo, \"/users/current/\"))\n4. isContentType(response, \"application/json\")\n5. grepl(contentType, response$contentType, fixed = TRUE)\n6. GET(service, authInfo, \"/users/current/\")\n7. httpRequest(service, authInfo, \"GET\", path, query, headers, timeout)\n8. httpInvokeRequest(..., http = httpFunction())\n9. http(service$protocol, service$host, service$port, method, url, \n .     headers, timeout = timeout, certificate = certificate)\n10. system.time(gcFirst = FALSE, tryCatch({\n  .     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n  . }, error = function(e, ...) {\n  .     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n  .         \"transfer closed with outstanding read data remaining\")) \n  .         return(NULL)\n  .     else stop(e)\n  . }))\n11. tryCatch({\n  .     response &lt;- curl::curl_fetch_memory(url, handle = handle)\n  . }, error = function(e, ...) {\n  .     if (identical(e$message, \"Callback aborted\") || identical(e$message, \n  .         \"transfer closed with outstanding read data remaining\")) \n  .         return(NULL)\n  .     else stop(e)\n  . })\n12. tryCatchList(expr, classes, parentenv, handlers)\n13. tryCatchOne(expr, names, parentenv, handlers[[1L]])\n14. value[[3L]](cond)\n\n"
  }
}