Fixed output (#270)

brnleehng · web-flow · commit d02599de3728 · 2018-05-11T09:33:49.000-07:00
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) {

Original file line number	Diff line number	Diff line change
`@@ -581,7 +581,7 @@ waitForTasksToComplete <-`
`581`	`581`	`}`
`582`	`582`
`583`	`583`	`waitForJobPreparation <- function(jobId, poolId) {`
`584`		`- cat("Job Preparation Status: Package(s) being installed")`
	`584`	`+ cat("\nJob Preparation Status: Package(s) being installed")`
`585`	`585`	`config <- getConfiguration()`
`586`	`586`	`batchClient <- config$batchClient`
`587`	`587`
`@@ -623,8 +623,6 @@ waitForJobPreparation <- function(jobId, poolId) {`
`623`	`623`	`cat(".")`
`624`	`624`	`Sys.sleep(10)`
`625`	`625`	`}`
`626`		`-`
`627`		`- cat("\n")`
`628`	`626`	`}`
`629`	`627`
`630`	`628`	`isError <- function(x) {`