Нужна помощь в создании запроса POST в R с использованием FIXML и ROAuth

Question

Я пытаюсь подключиться к торговому API, и я успешно выполняю запросы GET, но когда я пытаюсь сделать запрос POST, я продолжаю получать сообщения об ошибках от API. Я искал ответ в Интернете и на форумах, но все подобные вопросы остались нерешенными.

Вот скрипт R, который я использую:

# Call the required packages
library(ROAuth)
library(RJSONIO)
library(XML)

# Set your application keys
cKey <- 'xxxx'
cSecret <- 'xxxx'
oKey <- 'xxxx'
oSecret <- 'xxxx'

# Set the API endpoint
tkURL <- "https://api.tradeking.com/v1/accounts/xxxxxxxx/orders/preview.xml"

# Create the OAuth connection - this is straight from the ROAuth documentation on CRAN 
credentials <- OAuthFactory$new(consumerKey = cKey,
                                consumerSecret = cSecret,
                                oauthKey = oKey,
                                oauthSecret = oSecret,
                                needsVerifier = FALSE,
                                signMethod='HMAC')

# Update the connection so the handshake is TRUE
credentials$handshakeComplete <- TRUE

# Create FIXML
doc <- newXMLDoc()
root <- newXMLNode('FIXML', namespaceDefinitions = 'http://www.fixprotocol.org/FIXML-5-0-SP2',
                       newXMLNode('Order', attrs=c(TmInForce='0', Typ='1', Side='1', Acct='xxxxxxxx'),
                               newXMLNode('Instrmt', attrs=c(SecTyp='CS', Sym='FAS')), 
                               newXMLNode('OrdQty', attrs=c(Qty='1'))), doc=doc)
newFIXML = saveXML(doc, encoding='UTF-8')
newFIXML

# Post order
response <- credentials$OAuthRequest(tkURL, method = "POST", newFIXML)
response

Когда я запускаю это, я получаю этот ответ:

"<response id=\"-3491729f:14e4f104ddc:7f50\">\n\t
<type>Error</type>\n\t
<name>ScriptFailure</name>\n\t
<description></description>\n\t
<path>/v1/accounts/xxxxxxxx/orders/preview.xml</path>\n</response>"
attr(,"Content-Type")
                            charset 
"application/xml"           "UTF-8" 

Я поговорил с парнем по API, и он дал эти предложения, но сказал, что не может помочь с кодом R:

Я не знаком с R, так что я, вероятно, не сильно помогу в части кода. Что касается идентификатора ответа, похоже, что заголовки были неправильно отправлены в теле запроса вместе с fixml. Кроме того, fixml, кажется, закодирован, это не должно быть. Это больше похоже на xml или текст, и тип контента должен отражать это в вашем запросе, чтобы он не пытался его кодировать. Вместо Content-Type:application/x-www-form-urlencoded, вы должны попробовать Content-Type: text/xml. Вот (вставлено ниже) то, что мы получили по вашему запросу:

Headers:
    Host:api.tradeking.com Content-Length:668 Accept:*/* Content-Type:application/x-www-form-urlencoded 


    Body:
    =%3C%3Fxml%20version%3D%221.0%22%20encoding%3D%22UTF-8%22%3F%3E%0A%3CFIXML%20xmlns%3D%22http%3A%2F%2Fwww.fixprotocol.org%2FFIXML-5-0-SP2%22%3E%0A%20%20%3COrder%20TmInForce%3D%220%22%20Typ%3D%221%22%20Side%3D%221%22%20Acct%3D%22xxxxxxxx%22%3E%0A%20%20%20%20%3CInstrmt%20SecTyp%3D%22CS%22%20Sym%3D%22FAS%22%2F%3E%0A%20%20%20%20%3COrdQty%20Qty%3D%221%22%2F%3E%0A%20%20%3C%2FOrder%3E%0A%3C%2FFIXML%3E%0A&oauth_consumer_key=xxxx&oauth_nonce=xxxx &oauth_signature_method=HMAC-SHA1&oauth_timestamp=1435846001&oauth_token=xxxx&oauth_version=1.0&oauth_signature=xxxx%2xxxx%3D

Как мне исправить это в коде?

Answer 1

Я думаю, вам нужно поместить код FIXML после URL-адреса следующим образом:

      tkURL <- "https://api.tradeking.com/v1/accounts/******/orders/preview.json"
xsfixml <- "<FIXML xmlns=\"http://www.fixprotocol.org/FIXML-5-0-SP2\"> <Order TmInForce=\"0\" Typ=\"2\" Side=\"1\" Px=\"8.5\" Acct=\"******\"> <Instrmt SecTyp=\"CS\" Sym=\"UNG\"/>     <OrdQty Qty=\"1\"/>  </Order> </FIXML>"
tkURLfixml <- paste(tkURL, xsfixml)
response <- credentials$OAuthRequest(tkURLfixml, method="POST",)

Или вы нашли лучшее решение?