Deployment.R
In datarobot: 'DataRobot' Predictive Modeling API

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  library(datarobot)
#  project <- GetProject("5506fcd38bd88f5953219da0")
#  model <- ListModels(project)[[1]]
#  predictionServer <- ListPredictionServers()[[1]]
#  deployment <- CreateDeployment(model,
#                                 label = "New Deployment",
#                                 description = "A new deployment for demo purposes",
#                                 defaultPredictionServerId = predictionServer)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  ListDeployments()

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  GetDeployment("5e319d2e422fbd6b58a5edad")

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  deployment <- GetDeployment("5e319d2e422fbd6b58a5edad")
#  DeleteDeployment(deployment)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  project <- GetProject("5506fcd38bd88f5953219da0")
#  newModel <- ListModels(project)[[2]]
#  deployment <- GetDeployment("5e319d2e422fbd6b58a5edad")
#  ReplaceDeployedModel(deployment, newModel, ModelReplacementReason$Accuracy)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  project <- GetProject("5506fcd38bd88f5953219da0")
#  newModel <- ListModels(project)[[2]]
#  deployment <- GetDeployment("5e319d2e422fbd6b58a5edad")
#  validation <- ValidateReplaceDeployedModel(deployment, newModel)
#  print(validation$status)  # Look here to see if passing
#  print(validation$checks)  # Look here if not passing to see why

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  deployment <- GetDeployment("5e319d2e422fbd6b58a5edad")
#  GetDeploymentDriftTrackingSettings(deployment)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
#  deployment <- GetDeployment("5e319d2e422fbd6b58a5edad")
#  UpdateDeploymentDriftTrackingSettings(deployment, targetDriftEnabled = TRUE)