Fixed output (#270)

Azure · May 11, 2018 · d02599d · d02599d
1 parent 23079f5
commit d02599d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
@@ -774,8 +774,9 @@ setHttpTraffic <- function(value = FALSE) {
     return(results)
   }
   else{
-    print(
+    cat(
       paste0(
+        "\n",
         "Because the 'wait' parameter is set to FALSE, the returned value is the job ID associated with ",
         "the foreach loop. Use this returned value with getJobResults(job_id) to get the results ",
         "when the foreach loop is completed in Azure"

diff --git a/R/jobUtilities.R b/R/jobUtilities.R
@@ -581,7 +581,7 @@ waitForTasksToComplete <-
   }
 
 waitForJobPreparation <- function(jobId, poolId) {
-  cat("Job Preparation Status: Package(s) being installed")
+  cat("\nJob Preparation Status: Package(s) being installed")
   config <- getConfiguration()
   batchClient <- config$batchClient
 
@@ -623,8 +623,6 @@ waitForJobPreparation <- function(jobId, poolId) {
     cat(".")
     Sys.sleep(10)
   }
-
-  cat("\n")
 }
 
 isError <- function(x) {