if (FALSE) {
projectId <- "59a5af20c80891534e3c2bde"
modelId <- "5996f820af07fc605e81ead4"
model <- GetModel(projectId, modelId)
predictionServer <- ListPredictionServers()[[1]]
CreateDeployment(model,
label = "myDeployment",
description = "this is my deployment",
defaultPredictionServerId = predictionServer)
}
Run the code above in your browser using DataLab