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

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# library(datarobot)
# endpoint <- "https://<YOUR DATAROBOT URL GOES HERE>/api/v2"
# apiToken <- "<YOUR API TOKEN GOES HERE>"
# ConnectToDataRobot(endpoint = endpoint, token = apiToken)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# projectId <- "59dab74bbd2a54035786bfc0"
# ratingTables <- ListRatingTables(projectId)
# ratingTable <- ratingTables[[1]]
# print(ratingTable)

## ----results = "asis", echo = FALSE-------------------------------------------
ratingTable <- readRDS("ratingTable.rds")
print(ratingTable)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# projectId <- "59dab74bbd2a54035786bfc0"
# ratingTableModels <- ListRatingTableModels(projectId)
# ratingTableModel <- ratingTableModels[[1]]
# ratingTableId <- ratingTableModel$ratingTableId
# ratingTable <- GetRatingTable(projectId, ratingTableId)
# print(ratingTable)

## ----results = "asis", echo = FALSE-------------------------------------------
ratingTable <- readRDS("ratingTable.rds")
print(ratingTable)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# projectId <- "59dab74bbd2a54035786bfc0"
# modelId <- "59dd0b01d9575702bec96e4"
# ratingTableModel <- GetRatingTableModel(projectId, modelId)
# ratingTableId <- ratingTableModel$ratingTableId
# ratingTable <- GetRatingTable(projectId, ratingTableId)
# print(ratingTable)

## ----results = "asis", echo = FALSE-------------------------------------------
ratingTable <- readRDS("ratingTable.rds")
print(ratingTable)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# DownloadRatingTable(projectId, ratingTableId, "myRatingTable.csv")

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# DownloadRatingTable(projectId, ratingTableId, "myRatingTable.csv")
# newRatingTableJobId <- CreateRatingTable(project,
#                                          modelId,
#                                          "myRatingTable.csv",
#                                          ratingTableName = "Modified File")
# newRatingTable <- GetRatingTableFromJobId(project, newRatingTableJobId)
# print(newRatingTable)

## ----results = "asis", echo = FALSE-------------------------------------------
ratingTable <- readRDS("ratingTable.rds")
print(ratingTable)

## ----results = "asis", message = FALSE, warning = FALSE, eval = FALSE---------
# newModelJobId <- RequestNewRatingTableModel(project, newRatingTable)
# newRatingTableModel <- GetRatingTableModelFromJobId(project, newModelJobId)
# print(newRatingTableModel)

## ----results = "asis", echo = FALSE-------------------------------------------
newRatingTableModel <- readRDS("ratingTableModel.RDS")
print(newRatingTableModel)