fix selector.aes test

tdhock · Oct 19, 2015 · bc076ed · bc076ed
1 parent 72d020e
commit bc076ed
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/test-renderer1-variable-value.R b/tests/testthat/test-renderer1-variable-value.R
@@ -21,8 +21,11 @@ test_that("selector.aes errors when no matching variable for value", {
          "clickSelects.value",
          "clickSelects2.value")
   for(a.vec in a.list){
+    arg.list <- as.list(paste0("var", seq_along(a.vec)))
+    names(arg.list) <- a.vec
+    a <- do.call(aes_string, arg.list)
     expect_error({
-      selector.aes(a.vec)
+      selector.aes(a)
     }, ".variable or .value aes not found")
   }
 })