Respect quiet flag

ialyabiev · Oct 8, 2013 · be564b8 · be564b8
1 parent 2d7a045
commit be564b8
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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