Smarter Update Webservice Function

[peterandrien]

Currently the updateWebService function is very similar to the publishWebService function except that it requires the otherwise optional serviceId parameter. It would be nice if there was a function that would take a web service name and populate the serviceID parameter for users.

In the absence of this I end up writing code like the following:

id = services(ws,name = webServiceName)["Id"][1,1]

if(is.na(id)) {
  # publish the webservice
  ep <- publishWebService(ws,
                          fun = foo,
                          name = webserviceName,
                          data.frame = TRUE,
                          inputSchema = sampleInput)
} else {
  # Send update to azure 
  ep <- publishWebService(ws,
                          fun = foo,
                          name = webserviceName,
                          data.frame = TRUE,
                          inputSchema = sampleInput,
                          serviceId = id)
}

I would prefer to instead write something like:

ep <- updateWebService(ws,
                          fun = foo,
                          name = webserviceName,
                          data.frame = TRUE,
                          inputSchema = sampleInput)