add <- function(x,y) { return(x+y) }
newService <- publishWebService("add", "add",
list("x"="int","y"="int"), list("z"="int"), wsID, authToken)
webserviceDetails <- newService[[1]]
endpoints <- newService[[2]]
response <- consumeLists(endpoints[[1]]$PrimaryKey, endpoints[[1]]$ApiLocation,
list("x"=1, "y"=2), list("x"=3, "y"=4))
Run the code above in your browser using DataLab