From d02599de3728f5a1b2fac0f136c1c806854380b4 Mon Sep 17 00:00:00 2001
From: Brian <l.brian.hoang@gmail.com>
Date: Fri, 11 May 2018 09:33:49 -0700
Subject: [PATCH] Fixed output (#270)

---
 R/doAzureParallel.R | 3 ++-
 R/jobUtilities.R    | 4 +---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
index a29d22f7..4302b76e 100644
--- 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
index e97932c3..eae932e7 100644
--- 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) {