add job state in getJob

Author: zfengms

R/jobUtilities.R

@@ -69,11 +69,13 @@ getJob <- function(jobId, verbose = TRUE) {
       ),
       fill = TRUE
     )
+    cat(sprintf("\njob state: %s", job$state), fill = TRUE)
   }
 
   jobObj <- list(jobId = job$id,
                  metadata = metadata,
-                 tasks = tasks)
+                 tasks = tasks,
+                 jobState = job$state)
 
   return(jobObj)
 }

tests/testthat/test-long-running-job.R

@@ -53,5 +53,5 @@ test_that("Long Running Job Test", {
                          list(2, 2, 2, 2))
 
   # delete the job
-  rAzureBatch::deleteJob(jobId)
+  deleteJob(jobId)
 })