From be564b85bab77169be37e509253758ebf6e98e2e Mon Sep 17 00:00:00 2001
From: Andy Kipp <andy@rstudio.com>
Date: Tue, 8 Oct 2013 10:00:21 -0400
Subject: [PATCH] Respect quiet flag

---
 R/lucid.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/lucid.R b/R/lucid.R
index 443af24..ab23235 100644
--- a/R/lucid.R
+++ b/R/lucid.R
@@ -58,7 +58,9 @@ lucidClient <- function(authInfo) {
       
       path <- paste("/tasks/", taskId, sep="")
 
-      cat("Waiting for task: ", taskId, "\n", sep="")
+      if (!quiet) {
+        cat("Waiting for task: ", taskId, "\n", sep="")
+      }
       
       lastStatus <- NULL
       while(TRUE) {
@@ -74,7 +76,7 @@ lucidClient <- function(authInfo) {
         
         # are we finished? (note: this codepath is the only way to exit 
         # this function)
-        else if (status$finished) {
+        if (status$finished) {
           if (identical(status$status, "complete"))
             return (NULL)
           else