added error message for failed login cookie that is character(0)

corynissen · Apr 13, 2017 · fe5ae09 · fe5ae09
1 parent 2ca554a
commit fe5ae09
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/login.R b/R/login.R
@@ -38,10 +38,9 @@ login <- function(email, password, rememberMe=FALSE){
   if(is.null(cookie)){
     all_cookies <- a$cookies
     cookie <- all_cookies[grep("^u$", all_cookies$name, ignore.case=F),"value"]
-    if(is.null(cookie)){
+    if(is.null(cookie) | identical(cookie, character(0))){
       stop("login failed")
     }
   }
-
   return(cookie)
 }