diff --git a/R/utility-job.R b/R/utility-job.R index 17886326..b1d35daf 100644 --- a/R/utility-job.R +++ b/R/utility-job.R @@ -511,16 +511,18 @@ waitForTasksToComplete <- } if (Sys.time() > timeToTimeout) { - stop(sprintf( - paste( - "Timeout has occurred while waiting for tasks to complete.", - "Users will have to manually track the job '%s' and get the results.", - "Use the getJobResults function to obtain the results and getJobList for", - "tracking job status. To change the timeout, set 'timeout' property in the", - "foreach's options.azure." + stop( + sprintf( + paste( + "Timeout has occurred while waiting for tasks to complete.", + "Users will have to manually track the job '%s' and get the results.", + "Use the getJobResults function to obtain the results and getJobList for", + "tracking job status. To change the timeout, set 'timeout' property in the", + "foreach's options.azure." + ), + jobId ) - ), - jobId) + ) } jobInfo <- getJob(jobId, verbose = FALSE)