在R中进行POST呼叫

Question

我有一个REST API，我想对其进行POST调用。

API是 “ http://swift-rand-8888a.stg.corp.dummy.com/random/filter”

它不需要Auth参数。

我要发送的有效载荷是：

  

有效负载：{“ name”：“ Filter_1533141396310”，“ shortName”：“ LHF”，
  “ filterType”：“ ==”，“ value”：{       “ name”：“ completed”，       “ defaultValue”：“ completed”}，“ attribute”：{       “ vName”：“状态”，       “ vType”：“ LOCAL”}，“ transformerDependency”：“”，“ createdBy”：“ Aman”}

标题应为{Content-Type = [application / json]}

我总是收到“错误的请求错误”。

我的代码如下：

dummy<-"Payload:  {'name': 'Filter_1533141396310','shortName': 'LHF','filterType': '==','value': {'name': 'completed','defaultValue': 'completed'},'attribute': {'vName': 'status','vType': 'LOCAL'},'transformerDependency': '','createdBy': 'Prateek'}"

result <- POST("http://swift-rand-8888a.stg.corp.dummy.com/random/filter",
               body = dummy,
               add_headers("Content-Type=[application/json]"))
Output <- content(result)

有人可以帮我解决我的错误吗？