# NOT RUN {
ws <- load_workspace_from_config()
model <- get_model(ws, name = "my_model")
r_env <- r_environment(name = "r_env")
inference_config <- inference_config(entry_script = "score.R",
source_directory = ".",
environment = r_env)
deployment_config <- aci_webservice_deployment_config(cpu_cores = 1, memory_gb = 1)
service <- deploy_model(ws,
name = "my_webservice",
models = list(model),
inference_config = inference_config,
deployment_config = deployment_config)
wait_for_deployment(service, show_output = TRUE)
# }
Run the code above in your browser using DataLab