Allow login without assignment

datashield · May 18, 2020 · 2ed2cd5 · 2ed2cd5
1 parent c4da380
commit 2ed2cd5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/datashield.login.R b/R/datashield.login.R
@@ -178,7 +178,7 @@ datashield.login <- function(logins=NULL, assign=FALSE, variables=NULL, missings
   }
   rconnections <- c()
   for (i in 1:length(connections)) {
-    if(!excluded[i]) {
+    if (is.null(excluded) || !excluded[i]) {
       x <- list(connections[[i]])
       names(x) <- stdnames[[i]]
       rconnections <- append(rconnections, x)
@@ -218,7 +218,7 @@ datashield.login <- function(logins=NULL, assign=FALSE, variables=NULL, missings
           }
           resInfo <- dsGetInfo(res)
           if (resInfo$status == "FAILED") {
-            warning("Resource assignment of '", resources[i], "' failed for '", stdnames[i],"': ", res@error, call.=FALSE, immediate.=TRUE)
+            warning("Resource assignment of '", resources[i], "' failed for '", stdnames[i],"': ", resInfo$error, call.=FALSE, immediate.=TRUE)
           }
         }
       }
@@ -260,7 +260,7 @@ datashield.login <- function(logins=NULL, assign=FALSE, variables=NULL, missings
           }
           resInfo <- dsGetInfo(res)
           if (resInfo$status == "FAILED") {
-            warning("Data assignment of '", tables[i], "' failed for '", stdnames[i],"': ", res@error, call.=FALSE, immediate.=TRUE)
+            warning("Data assignment of '", tables[i], "' failed for '", stdnames[i],"': ", resInfo$error, call.=FALSE, immediate.=TRUE)
           }
         }
       }