private void publishService()
{
try
{
PublishWebServiceRequest request = new PublishWebServiceRequest();
serviceName = "myMtService" + DateTime.Now.Ticks;
request.InputParameterDefinitions = new List <ParameterDefinition>
{
new ParameterDefinition("hp", "numeric"),
new ParameterDefinition("wt", "numeric")
};
request.OutputParameterDefinitions = new List <ParameterDefinition>
{
new ParameterDefinition("answer", "numeric")
};
string code = "answer <- (function (hp, wt) \n{\n newdata <- data.frame(hp = hp, wt = wt)\n predict(carsModel, newdata, type = \"response\")\n})(hp, wt)";
request.Code = code;
request.SnapshotId = snapshotId;
request.OperationId = "manualTransmission";
request.RuntimeType = RuntimeType.R;
string message = string.Format("Publishing service {0}, version {1}", serviceName, version);
Console.WriteLine(message);
var response = mrsServer.PublishWebServiceVersion(serviceName, version, request);
serviceCreated = true;
}
catch (Exception e)
{
string message = string.Format("Publish service {0}, version {1} failed ", serviceName, version);
throw new Exception(message + e.Message);
}
}
