if (FALSE) {
projectId <- "59a5af20c80891534e3c2bde"
modelId <- "5996f820af07fc605e81ead4"
jobId <- RequestTransferableModel(projectId,
modelId,
50)
WaitForJobToComplete(projectId, jobId)
file <- file.path(tempdir(), "model.drmodel")
DownloadTransferableModel(projectObject, modelId, file)
}
Run the code above in your browser using DataLab