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]]
helpURL <- endpoints[[1]]$HelpLocation
pKey <- endpoints[[1]]$PrimaryKey
apiURL <- endpoints[[1]]$ApiLocation
Run the code above in your browser using DataLab