Chciałbym przenieść następujące wywołanie curl do Rcurl:
curl "http://myserver.org/stream"
-H "Authorization: Basic XXXXXXXX" -H "Connection: keep-alive" --data-binary "{"limit": 20}"
-H "Content-Type: application/json;charset=utf-8"
To jest jeden z moich testów R:
library(RCurl)
url.opts <- list(httpheader = list(Authorization ="Basic XXXXXXXX",
Connection = "keep-alive",
"Content-Type" = "application/json;charset=utf-8"))
getURLContent("http://myserver.org/stream", .opts=url.opts)
Teraz brakuje mi atrybutu, aby dodać --data lub --data-binary. Jak dodać tę opcję?
Wielkie dzięki Markus
Odpowiedzi:
3 dla odpowiedzi № 1Wielkie dzięki @adley.
Oto moje działające rozwiązanie:
library(httr)
user <- "test"
password <- "test123"
POST(url = "http://myserver.org/stream",
config = c(authenticate(user, password, "basic"),
add_headers(Connection = "keep-alive"),
accept_json()),
body = "{"username":"test"}")