add1 <- function(x) { return(x+1) }
addService <- publishWebService("add1", "add1",
list("x"="int"), list("z"="int"), wsID, wsAuth)
add2 <- function(x) { return(x+2) }
addService <- updateWebService("add2", "add2", addService[[1]]$Id,
list("x"="int"), list("z"="int"), wsID, wsAuth)
Run the code above in your browser using DataLab