tests/testthat/dummy_score.R

In azuremlsdk: Interface to the 'Azure Machine Learning' 'SDK'

#' Copyright (c) Microsoft Corporation. All rights reserved.
#' Licensed under the MIT License.

library(jsonlite)

init <- function()
{
  model_path <- Sys.getenv("AZUREML_MODEL_DIR")
  model <- readRDS(file.path(model_path, "model.rds"))
  message("model is loaded")
  
  function(data)
  {
    plant <- as.data.frame(fromJSON(data))
    prediction <- predict(model, plant)
    result <- as.character(prediction)
    toJSON(result)
  }
}