Dciborow/cicd

.ci/azure-pipelines-v2.yml

@@ -14,7 +14,7 @@ resources:
     - repository: aitemplates
       type: github
       name: microsoft/AI
-      endpoint: AIArchitecturesAndPractices-GitHub
+      endpoint: AIArchitecturesAndPractices-GitHub  
 
 trigger:
   batch: true
@@ -29,9 +29,11 @@ pr:
     - master
 
 stages:
-- template: .ci/stages/deploy_notebooks_stages_v2.yml@aitemplates
+- template: .ci/stages/deploy_container_stages_v2.yml@aitemplates
   parameters:
     Agent: $(Agent_Name)
     jobDisplayName: RMLAKSDeployAMLJob
     DefaultWorkingDirectory: $(System.DefaultWorkingDirectory)
     workload_vars: ../vars/rml_realtime_scoring.yml
+    sp_appid: $(sp_appid)
+    sp_password: $(sp_password)

01_create_resources.R

@@ -9,11 +9,11 @@ source("resource_specs.R")
 # create ARM and Graph logins
 az <- try(get_azure_login(tenant), silent=TRUE)
 if(inherits(az, "try-error"))
-    az <- create_azure_login(tenant, auth_type="device_code")
+    az <- create_azure_login(tenant, app=app_id, password=password)
 
 gr <- try(get_graph_login(tenant), silent=TRUE)
 if(inherits(gr, "try-error"))
-    gr <- create_graph_login(tenant, auth_type="device_code")
+    gr <- create_graph_login(tenant, app=app_id, password=password)
 
 sub <- az$get_subscription(sub_id)
 

DESCRIPTION

@@ -0,0 +1,22 @@
+Package: realtimeRDeployment
+Title: Deploy Real Time R Service
+Version: 0.0.0.0
+Authors@R: 
+    c(person(given = "Hong",
+             family = "Ooi",
+             role = c("aut", "cre"),
+             email = "hongooi@microsoft.com",
+             comment = c(ORCID = "0000-0002-2739-7082")),
+      person(given = "RStudio",
+             role = c("cph", "fnd")))
+Description: What the package does (one paragraph).
+License: MIT + file LICENSE
+Encoding: UTF-8
+LazyData: true
+Suggests: 
+    testthat (>= 2.1.0),
+    xml2,
+    covr
+URL: https://github.com/Azure/RealtimeRDeployment
+BugReports: https://github.com/Azure/RealtimeRDeployment/issues
+RoxygenNote: 6.1.1

resource_specs.R

@@ -31,6 +31,8 @@ email <- "your.email@tenant.com"
 # service username
 username <- "ml-model-user"
 
+app_id <- "your ap id"
+
 # service password
 password <- stop("Must specify a password!")