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 <- consumeFile(endpoints[[1]]$PrimaryKey, endpoints[[1]]$ApiLocation, "test.csv")
Run the code above in your browser using DataLab