Update request.R

The current logical test gives a condition length error whenever any calls are made.
cloudyr · Feb 9, 2016 · a05a368 · a05a368
1 parent 30c3ed7
commit a05a368
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/request.R b/R/request.R
@@ -15,7 +15,7 @@ function(operation, GETparameters = NULL,
     } else {
         host <- "https://mechanicalturk.amazonaws.com/"
     }
-    if(is.null(keypair) | keypair == "" | keypair == c("", "")) {
+    if(is.null(keypair) | keypair == "" | identical(keypair, c("", ""))) {
         g <- getOption("MTurkR.keypair")
         if (!is.null(g)) {
             keypair <- g