WSDL request, SOAP in R - r

Question

I want to use webservice feature of a website by using SOAP approach.
The methods below are the things written in the manual ;
WSDL Address: http://dev.gittigidiyor.com:8080/listingapi/ws/CategoryService?wsdl
Service Method Signature:
CategoryServiceResponse getCategories(int startOffSet, int rowCount, boolean withSpecs, boolean withDeepest, boolean withCatalog, String lang)
Request Example
<cat:getCategories>
<startOffSet>0</startOffSet>
<rowCount>4</rowCount>
<withSpecs>true</withSpecs>
<withDeepest>true</withDeepest>
<withCatalog>true</withCatalog>
<lang>tr</lang>
</cat:getCategories>
Here is what I have tried in R.
library(RCurl)
headerFields =
c(Accept = "text/xml",
'Content-Type' = "text/xml; charset=utf-8",
SOAPAction = "")
body <- '<cat:getCategories>
<startOffSet>0</startOffSet>
<rowCount>4</rowCount>
<withSpecs>true</withSpecs>
<withDeepest>true</withDeepest>
<withCatalog>true</withCatalog>
<lang>tr</lang>
</cat:getCategories>'
curlPerform(url = "http://dev.gittigidiyor.com:8080/listingapi/ws/CategoryService?wsdl",
httpheader = headerFields,
postfields = body
)
But at the end, only output I have is that ;
OK
0
However, it should be like that wrt the manual ;
<cat:getCategoriesResponse xmlns:cat="http://category.anonymous.ws.listingapi.gg.com">
<return>
<ackCode>success</ackCode>
<responseTime>29/06/2010 13:39:19</responseTime>
<timeElapsed>2 ms</timeElapsed>
<categoryCount>3849</categoryCount>
<categories>
<category hasCatalog="false" deepest="false">
<categoryCode>a</categoryCode>
<categoryName>Antikalar & Sanat</categoryName>
</category>
<category hasCatalog="false" deepest="false">
<categoryCode>aa</categoryCode>
<categoryName>Antika Ahşap Objeler</categoryName>
<specs>
<spec type="Combo" name="Menşei (Orijin)">
<values>
<value>Avrupa</value>
<value>Osmanlı</value>
<value>Türkiye</value>
<value>Uzakdoğu</value>
<value>Diğer</value>
<value>Rusya</value>
</values>
</spec>
<spec type="Combo" required="true" name="Kondisyon">
<values>
<value>Yüksek</value>
<value>Orta</value>
<value>Düşük</value>
</values>
</spec>
<spec type="Combo" required="true" name="Durumu">
<values>
<value>Yeni</value>
<value>Kullanılmış</value>
<value>Diğer</value>
</values>
</spec>
<spec type="Combo" required="true" name="Antika / Modern">
<values>
<value>Antika</value>
<value>Modern</value>
</values>
</spec>
<spec type="Combo" name="Dönemler">
<values>
<value>1800 öncesi</value>
<value>1800 - 1849</value>
<value>1850 - 1899</value>
<value>1900 - 1940</value>
<value>1940 sonrası</value>
</values>
</spec>
</specs>
</category>
<category hasCatalog="false" deepest="true">
<categoryCode>az</categoryCode>
<categoryName>Diğer Antikalar & Sanat</categoryName>
</category>
<category hasCatalog="false" deepest="false">
<categoryCode>b</categoryCode>
<categoryName>Bilgisayar</categoryName>
<specs>
<spec type="Combo" required="true" name="Durumu">
<values>
<value>Yeni, Açılmamış Kutusunda</value>
<value>Kullanılmış</value>
<value>Yeni, Kutusuz</value>
</values>
</spec>
</specs>
</category>
</categories>
</return>
</cat:getCategoriesResponse>
What am I missing? Can you help please?

Answer 1

This may help you,
library(RCurl)
headerFields = c(Accept = "text/xml",
'Content-Type' = "text/xml; charset=utf-8", SOAPAction = "")
body <- '<cat:getCategories>
<startOffSet>0</startOffSet>
<rowCount>4</rowCount>
<withSpecs>true</withSpecs>
<withDeepest>true</withDeepest>
<withCatalog>true</withCatalog>
<lang>tr</lang>
</cat:getCategories>'
reader <- basicTextGatherer()
curlPerform(url = "http://dev.gittigidiyor.com:8080/listingapi/ws/CategoryService?wsdl",
httpheader = headerFields,
postfields = body,
writefunction = reader$update
)
xml <- reader$value()
xml