RCurl JSON данные в JIRA REST добавить проблему

Question

Я пытаюсь отправить данные в проект JIRA, используя R, и я продолжаю получать: Ошибка Bad Request. Сначала я подумал, что это должен быть формат JSON, который я создал. Поэтому я записал JSON в файл и выполнил команду curl из консоли (см. Ниже), и POST работал просто отлично.

curl -D- -u fred:fred -X POST -d @sample.json -H "Content-Type: application/json" http://localhost:8090/rest/api/2/issue/

Что приводит проблему к моему R-коду. Может кто-нибудь сказать мне, что я делаю не так с RCurl postForm?

Источник:

library(RJSONIO)
library(RCurl)

x <- list (
  fields = list(
  project = c(
     c(key="TEST")
  ),
  summary="The quick brown fox jumped over the lazy dog",
  description = "silly old billy",
  issuetype = c(name="Task")
 )
)


curl.opts <- list(
  userpwd = "fred:fred",
  verbose = TRUE,
  httpheader = c('Content-Type' = 'application/json',Accept = 'application/json'),
  useragent = "RCurl"           
)

postForm("http://jirahost:8080/jira/rest/api/2/issue/",
     .params= c(data=toJSON(x)),
     .opts = curl.opts,
     style="POST"
)

rm(list=ls()) 
gc()

Вот результат ответа:

* About to connect() to jirahost port 80 (#0)
* Trying 10.102.42.58... * connected
* Connected to jirahost (10.102.42.58) port 80 (#0)
> POST /jira/rest/api/2/issue/ HTTP/1.1
User-Agent: RCurl
Host: jirahost
Content-Type: application/json
Accept: application/json
Content-Length: 337

< HTTP/1.1 400 Bad Request
< Date: Mon, 07 Apr 2014 19:44:08 GMT
< Server: Apache-Coyote/1.1
< X-AREQUESTID: 764x1525x1
< X-AUSERNAME: anonymous
< Cache-Control: no-cache, no-store, no-transform
< Content-Type: application/json;charset=UTF-8
< Set-Cookie: atlassian.xsrf.token=B2LW-L6Q7-15BO- MTQ3|bcf6e0a9786f879a7b8df47c8b41a916ab51da0a|lout; Path=/jira
< Connection: close
< Transfer-Encoding: chunked
< 
* Closing connection #0
Error: Bad Request

Answer 1

Возможно, вам будет проще в использовании httr которая была разработана с учетом потребностей современных API и имеет тенденцию устанавливать лучшие параметры по умолчанию. Эквивалентный код httr будет:

library(httr)

x <- list(
  fields = list(
    project = c(key = "TEST"),
    summary = "The quick brown fox jumped over the lazy dog",
    description = "silly old billy",
    issuetype = c(name = "Task")
  )
)

POST("http://jirahost:8080/jira/rest/api/2/issue/",
  body = RJSONIO::toJSON(x),
  authenticate("fred", "fred", "basic"),
  add_headers("Content-Type" = "application/json"),
  verbose()
)

Если это не сработает, вам нужно будет предоставить результат успешного многословного скручивания на консоли и неудачного вызова httr в R.