From 6b39cf21d95b3bfc582a62011013829180d17cd9 Mon Sep 17 00:00:00 2001
From: Andy Kipp <andy@rstudio.com>
Date: Tue, 22 Oct 2013 15:10:08 -0400
Subject: [PATCH] Change task status flag

---
 R/lucid.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/lucid.R b/R/lucid.R
index ab23235..fd32776 100644
--- a/R/lucid.R
+++ b/R/lucid.R
@@ -77,7 +77,7 @@ lucidClient <- function(authInfo) {
         # are we finished? (note: this codepath is the only way to exit 
         # this function)
         if (status$finished) {
-          if (identical(status$status, "complete"))
+          if (identical(status$status, "success"))
             return (NULL)
           else
             stop(status$error, call. = FALSE)